[FDB]

Buenas!!

Aquí te pego un trozo de codigo de un codigo fuente de un codigo fuente escrito por manulon sobre un hospital. Creo que puedes encontrarlo en la seccion ejemplos de esta pagina..

Código Delphi [-]
procedure TForm3.InsertarClick(Sender: TObject);
var
 Ficha: TPaciente; // Ficha es un registro TPaciente
 Paciente: TListItem; // Elemento para introducir un nuevo paciente
 i: Integer; // Variable para un bucle
begin
 // Asignamos el los datos del paciente al Edit correspondiente
 Ficha.Nombre := edNombre.Text;
 Ficha.Edad := edEdad.Text;
 Ficha.Telefono := edTelefono.Text;
 with edNombre, edEdad, edTelefono do
   begin
     Close; // Cerramos la ventana
     Paciente := Form2.Lista.Items.Add; // Añadimos el paciente
     Paciente.Caption := Ficha.Nombre; // Aisgnamos el nombre introducido al paciente
     i := Form2.Lista.Items.Count-1; // i lleva la ultima posicion
     Form2.Lista.Items.Item[i].SubItems.Add(Ficha.Edad); // Añadimos un SubItem con la edad
     Form2.Lista.Items.Item[i].SubItems.Add(Ficha.Telefono); // Añadimos otro SubItem con el telefono
     Form2.Lista.Items.Item[i].SubItems.Add(IntToStr(i+1)); // Añadimos otro SubItem con el numero de orden
estado }
   end;
end;

Saludos!