Ver Mensaje Individual
  #34  
Antiguo 09-06-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
Y bien aquí estoy. Estuve dándole vueltas a tu código hasta me dieron ganar de copiarlo pero nada que no encuentro que "cosa" haces para que se modifique. Así que me creé este:

Código Delphi [-]
procedure TForm1.Button10Click(Sender: TObject);
var y: integer;
begin
  l.Items.clear; // limpio el listbox
  for y:= 1 to t.rowcount-1 do begin //antes de iniciar esto, mi rejilla
                                    // ya le volqué todas las personas
      edit1.text:=t.cells[1,y];
      edit2.text:=t.cells[2,y];
      edit4.text:=t.cells[3,y];
      edit5.text:=t.cells[4,y];
      button1.click; // ejecuta el boton de añadir

end;
end;

Cosas buenas:
- Hace lo que quiero que haga (cuando una persona esta en la rejilla y le modifico o sin modificar) guarda todos los datos de la rejilla en el listbox (limpiándolo previamente).

Cosas malas:
- Las personas no estan ordenadas por ningún criterio, así que cágate (perdon xD) cuando mi "hospital" tenga 1239123947823984905 usuarios y la muchacha de recepción le de por buscar al paciente Pepito Gomez (se muere ).

Jajaja que te parece tio voy a seguir echándole un ojo a eso de hacer llamadas a tu forma que me gusto!
Responder Con Cita