O código seguinte está sintaticamente correto e implementaa busca seqüencial ...

O código seguinte está sintaticamente correto e implementa

a busca seqüencial de um string associado à variável

chamada "aName", em um array de strings associado ao

array chamado "aStrs". Para que o algoritmo de busca

esteja corretamente implementado, é necessário que a

variável ?aCount" contenha o tamanho do array de string

?aStrs"

function SeqSearch(aStrs : PStringArray; aCount : integer;

const aName : string5) : integer;

var

i : integer;

begin

for i := 0 to pred(aCount) do

if CompareText(aStrs^[i], aName) = 0 then begin

Result := i;

Exit;

end;

Result := -1;

end;