Busqueda dentro de un array

[Khronos]

Una busqueda secuencial con ese array sería muy muy rápida. Algo como esto:

Código Delphi [-]
type
  Tncod_trabajo = array [1..250] of string;


function ExisteRegistro(const Reg: TNcod_trabajo; const Registro: string): boolean;
var
i: integer;
begin
result:= false;
for i:= 1 to 250 do begin
If Registro = Reg[i] then
begin
result:= true;
break;
end;
end;
end;

Salu2