Ver Mensaje Individual
  #8  
Antiguo 30-05-2008
Avatar de kbaby
kbaby kbaby is offline
Miembro
 
Registrado: oct 2007
Ubicación: Granada
Posts: 178
Reputación: 19
kbaby Va por buen camino
Fin del problema (no del hilo).

Aquí tengo el codigo made in kbaby para buscar a todos los que tienen el mismo DNI (o lo que sea).

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var salto,casilla:integer ;
begin
  panel2.visible:=false;
  edit3.Visible:=false;
  button5.Visible:=false;
  salto:=0;
  casilla:=0;
  while l.items.count > salto do begin
     If edit3.text = l.Items[salto] then begin
          t.cells[1,casilla+1]:=l.Items[salto];
          t.cells[2,casilla+1]:=l.items[salto+1];
          t.cells[3,casilla+1]:=l.items[salto+2];
          t.cells[4,casilla+1]:=l.items[salto+3];
          t.rowcount:=t.rowcount+casilla;
          inc(casilla);
          end;
     inc(salto,4);
     end;
end;

Funciona de maravilla jajaja.

He añadido al código un contador el de t.rowcount porque conforme encuentre a una persona la mesa en la tabla y aumente una fila.

Ahora lo siguiente que voy a hacer, es una vez volcado en la tabla (una persona o dos o las que sean) si la modifico, guardarla y que no se borren las otras. YeahhH!!!!

Última edición por kbaby fecha: 30-05-2008 a las 23:14:28. Razón: El código fallaba porque el inc estaba en lugar equivocado, gracias Delphius.
Responder Con Cita