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; end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|