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

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - object pascal - buscar en un record por contenido de un edit. (https://www.clubdelphi.com/foros/showthread.php?t=38531)

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

Hola, quería consultarlos por mi siguiente limitación: puedo hacer una búsqueda de campos personales por número de orden en un record guardado en archivo binario (usando seek), pero no sé cómo hacer la búsqueda por un campo personal, como nombre o documento, y que devuelva los demás datos de la persona en el record (tampoco entiendo cómo borrarlos). Tengo la parte que importa del código O.O. (de object pascal) dispuesto así:

primera unit:

Código:

Código Delphi [-]unit Unit1;



interface

uses

  [...] unit2



var

  Form1: TForm1;

  z:TManejoSocios;



procedure TForm1.FormCreate(Sender: TObject);

begin

  z:=TManejoSocios.Create;

end;



procedure TForm1.BuscarSocio1Click(Sender: TObject);

                            var i:word; c:Socio; mensaje:string;

begin

 i:=StrToInt(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;

...y lo que importa en la segunda unidad:

Código:

Código Delphi [-]unit Unit2;



interface

 uses SysUtils;

 Type

 Socio= Record

  Apellido, nombres: string[20];

  DNI:longint;

  DN,MN,AN:integer;

         end;

 TManejoSocios=class

   private

     Archi:File of Socio;

   public



     procedure BuscarSocio(p:longint; var c:Socio; 

 end;



implementation



procedure TManejoSocios.BuscarSocio(p:longint;var c:Socio;

                                              var m:string);

   var Largo:word;

   begin

   {$I-} Largo:=FileSize(archi);{$I+};

    If (IOResult<>0)

      then

       begin

     m:='Problemas con el archivo. Está creado o abierto?';

     exit

       end

      else  if p>=Largo then

       begin

         m:='El Número de registro está fuera de rango.';

         exit;

       end;

    Seek(Archi,p);

    Read(archi,c);

    m:='OK'

    end;

__ _ __ _ __ _ __ _

Como dije esto sirve para buscar por número de ingreso al record, pero no se me ocurre como llenar el edit1 con un apellido, nombre o dni y que rellene los demas edits con todos los datos correspondientes, actualmente logro esto sólo al ingresar el número de orden del record en el edit1.

Saludos a todos, feliz navidad, y disculpen la longitud, ofuscación del código e ignorancia personal.

Es una búsqueda secuencial. Abres el archivo, usas la variable c para leer el primer registro y ahora comparas el edit con el campo c.Nombre o c.DNI.

Quizás por comodidad podrías sacar el número total de socios para hacer un bucle, por ejemplo:

Código Delphi [-]for i:= 1 to TotalSocios do
begin
 BuscarSocio( i, c,m);
 if m = 'OK' then 
 if c.Nombre = edit1.text then
   break; // salimos del bucle porque lo hemos encontrado.
end;

Saludos

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

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:

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.

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.

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