Repository URL to install this package:
|
Version:
3.2.0 ▾
|
{ %opt=-Oodfa -Sew }
{$mode objfpc}
type
tarr = array of longint;
var
a: array of longint;
function IndexOfValue(const a: tarr; l: longint): longint;
begin
for result:=low(a) to high(a) do
if a[result]=l then
exit;
result:=-1;
end;
begin
end.