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;