Re: [DUG]: VB Like Case statement

[Aaron Scott-Boddendijk]

> function ArrayIndexOf(const S :String; const A :array of String):Integer;
> var
>   I :Integer;
> begin
>   I :=High(A);
>   while I>=0 do if A[I]=S then break;
>   Result := I;
> end;

whoops missed an 'else dec(I);'  ;)

as in
>   while I>=0 do if A[I]=S then break else dec(I);


he he he... You sure it's not Friday yet....

--
Aaron Scott-Boddendijk
Jump Productions
(07) 838-3371 Voice
(07) 838-3372 Fax


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz