![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
recuperar Objects de ListBox
Buenas, resulta que tengo un listbox que se llena de una base de datos de pacientes, el codigo es el siguiente
Código:
While not zQuery1.eof do begin pa.id_paciente:= zQuery1.FieldByName('id_paciente').AsInteger; pa.Apellido:=zQuery1.FieldByName('apellido').AsString; pa.Nombre:=zQuery1.FieldByName('nombre').AsString; pa.dni:=zQuery1.FieldByName('dni').AsInteger; pa.obra_social:=zQuery1.FieldByName('obra_social').AsString; pa.fecha_nac:=zQuery1.FieldByName('fecha_nacimiento').AsString; pa.ciudad:=zQuery1.FieldByName('ciudad').AsString; pa.dir:=zQuery1.FieldByName('direccion').AsString; pa.tel:=zQuery1.FieldByName('telefono').AsInteger; pa.email:=zQuery1.FieldByName('email').AsString; listaPacientes.Items.AddObject(pa.Apellido+' '+pa.Nombre,pa); zQuery1.Next; end; Código:
if(listaPacientes.ItemIndex>-1)then begin pa:=(listaPacientes.Items.Objects[listaPacientes.ItemIndex]) as tpaciente; paApellido.Text:= pa.Apellido; paNombre.Text:=pa.Nombre; paDNI.Text:=IntToStr(pa.dni); paObraSocial.Text:=pa.obra_social; paCiu.Text:=pa.ciudad; paTel.Text:=IntToStr(pa.tel); paMail.Text:=pa.email; end;
Espero me puedan ayudar, saludos |
#2
|
||||
|
||||
Para hacer lo que quiere tienes que hacer que "pa" sea un objecto.
Después haces
y luego Espero que te sirva Un saludo. Última edición por olbeup fecha: 14-10-2011 a las 09:02:57. |
#3
|
||||
|
||||
Y cuando cierras el formulario
|
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
agregar y/o eliminar items de un listbox a partir de otro listbox | Goyo | PHP | 2 | 27-09-2007 16:46:30 |
Enterprise Core Objects | edalmasso | .NET | 13 | 23-04-2007 17:58:08 |
Oracle Objects for OLE | SMTZ | Oracle | 0 | 16-08-2005 09:37:00 |
IB Objects | douglascosta | Conexión con bases de datos | 1 | 28-04-2005 02:19:47 |
Large Objects en PostgreSQL | gatosoft | MySQL | 1 | 28-05-2004 21:32:35 |
![]() |
|