object pascal - buscar en un record por contenido de un edit.

[[Lepe]]

Releyendo el hilo, no haría falta lo de totalSocios:

Código Delphi [-]

m := 'OK';
i:=0;
while m = 'OK' THEN
begin
 inc(i);
 BuscarSocio( i, c,m);
 if m = 'OK' then 
 if c.Nombre = edit1.text then
   break; // salimos del bucle porque lo hemos encontrado.
end;

Saludos