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

[runnerfrog]

Muchas gracias por la gran disposicion que has tenido, Lepe.
Igualmente estaré pasando muy mal los parámetros de una unit a otra, porque sigue buscando numeros de registro; en ambos casos con el archivo binario abierto, recibo un Stack Overflow cuando hago una búsqueda de números bajos, como los nº de registro ordinales del record. Si busco por DNI (números superiores a la cantidad de registros) "El Número de registro está fuera de rango"; si modifico el codigo para buscar nombres o apellidos "EConvert error (nombre ingresado) no es un integer valido". Sigue buscando numeros de registro.

( Project Project1.exe raised exception class EStackOverflow with message 'Stack overflow'. )

El codigo actual:

Código Delphi [-]
--- UNIT1:

procedure TForm1.BuscarSocio1Click(Sender: TObject);
                            var i:string; c:Socio; mensaje:string;
begin
 i:=Edit1.Text;
 z.BuscarSocio(i,c,mensaje);

 If mensaje='OK' then
      begin
       Edit2.Text:=c.Apellido;
       Edit3.Text:=c.Nombres;
       Edit1.Text:=IntToStr(c.DNI);
       Edit4.Text:=IntToStr(c.dn);
       Edit5.Text:=IntToStr(c.mn);
       Edit6.Text:=IntToStr(c.an);
      end
                  else
       ShowMessage(mensaje);
end;


--- UNIT2:

procedure TManejoSocios.BuscarSocio(p:string;var c:Socio; var m:string);
   var Largo:word; b:integer;
   begin
   {$I-} Largo:=FileSize(archi);{$I+};
    If (IOResult<>0)
      then
       begin
     m:='Problemas con el archivo. Está creado o abierto ?';
     exit // sale del procedure
       end
      else  if strtoint(p)>=Largo then
       begin
         m:='El Número de registro está fuera de rango.';
         exit; // sale del procedure
         end;

m := 'OK';
b:=0;
while m = 'OK' do
begin
 inc(b);
 BuscarSocio( inttostr(b), c,m);
 if m = 'OK' then
 if c.Nombres = p then
   break; // salimos del bucle porque lo hemos encontrado.
end;
end;

Saludos cordiales.

[[Lepe]]

Creo que no nos hemos entendido.

La rutina BuscarSocio no la tienes que modificar para nada, déjala como la tenías en el primer mensaje. Ahora la búsqueda por nombre:

De lo que se trata es de empezar a recorrer el archivo, registro por registro, mirando si el nombre que queremos buscar coincide con el registro actual, si lo es, dejamos de leer del archivo, porque lo hemos encontrado. Si no lo es, continuamos leyendo hasta que se encuentre o hasta el fin del archivo.

Código Delphi [-]
procedure TForm1.BuscarSocio1Click(Sender: TObject);
                            var i:string; c:Socio; m:string;
begin
  m := 'OK';
  i:=0;
  while m = 'OK' THEN
  begin
   inc(i);
   z.BuscarSocio( i, c,m);
   if m = 'OK' then 
// Si buscamos por el nombre, el nombre a buscar estará escrito en el editBusqueda
   if c.Nombre = editbusqueda.text then
     break; // salimos del bucle porque lo hemos encontrado.
  end;

 If mensaje='OK' then
      begin
       Edit2.Text:=c.Apellido;
       Edit3.Text:=c.Nombres;
       Edit1.Text:=IntToStr(c.DNI);
       Edit4.Text:=IntToStr(c.dn);
       Edit5.Text:=IntToStr(c.mn);
       Edit6.Text:=IntToStr(c.an);
      end
                  else
       ShowMessage('El texto a buscar no se encuentra en el archivo');
end;

Si ahora quieres buscar por dni, tienes que construir una rutina igual a la anterior y sustituir las líneas que dice:

Código Delphi [-]
   if c.Nombre = editbusqueda.text then
     break; // salimos del bucle porque lo hemos encontrado.

por estas otras:

Código Delphi [-]
   if c.dni = strToint(editbusqueda.text) then
     break; // salimos del bucle porque lo hemos encontrado.

[runnerfrog]

Muchas gracias, Lepe, y mis saludos de la temporada.