Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-08-2017
Unkger Unkger is offline
Miembro
 
Registrado: ago 2017
Posts: 11
Poder: 0
Unkger Va por buen camino
Unhappy Imprimir array en listBox

Buenas!, como puedo hacer para que se imprima todo el arreglo en un listBox, mi código es el siguiente:

Código Delphi [-]
implementation
  procedure Usuarios;
    type
      Tnombres = record
      nombre : String[10];
      apellido1 : String[10];
      apellido2 : String[10];
      ciudad : String[10];
      edad : Integer;
      end;
    var
      nombres : array [1..3] of Tnombres;
      i: Integer;
begin
  with nombres[1] do
begin
  nombre := 'Luan';
  apellido1 := 'apellido1';
  apellido2 := 'apellido2';
  ciudad := 'ciudad';
  edad := 34;
  end;

nombres[2] := nombres[1];
nombres[2].nombre := 'Moon';
nombres[3] := nombres[1];
nombres[3].nombre := 'Ami';

for i := 1 to 3 do
  begin
  with nombres[i] do
  begin
  Form1.ListBox1.Items.add(nombre); //así solo me saca los nombres pero quiero que salga lo demás ¿¿¿???
  end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Usuarios;
end;

end.
Responder Con Cita
  #2  
Antiguo 06-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.875
Poder: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Unkger, bienvenido a los foros de Club Delphi y como es costumbre con los que ingresan, te invitamos a leer nuestra guía de estilo.


Intenta de este modo:
Código Delphi [-]
...
implementation  

type
  Tnombres = record
    nombre    : string[10];
    apellido1 : string[10];
    apellido2 : string[10];
    ciudad    : string[10];
    edad      : Integer;
  end;

var
  nombres : array [1..3] of Tnombres;

procedure Usuarios(TS: TStrings);
var
  i: Integer;
begin
  nombres[1].nombre    := 'Luan';
  nombres[1].apellido1 := 'apellido1';
  nombres[1].apellido2 := 'apellido2';
  nombres[1].ciudad    := 'ciudad';
  nombres[1].edad      := 34;

  nombres[2] := nombres[1];
  nombres[2].nombre    := 'Moon';

  nombres[3] := nombres[1];
  nombres[3].nombre    := 'Ami';

  for i := 1 to 3 do
    TS.Add(Format('%s - %s - %s - %s - %d',[nombres[i].nombre,
      nombres[i].apellido1, nombres[i].apellido2, nombres[i].ciudad,
      nombres[i].edad]));
end;

Ejemplo de uso:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  Usuarios(ListBox1.Items);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 06-08-2017
Unkger Unkger is offline
Miembro
 
Registrado: ago 2017
Posts: 11
Poder: 0
Unkger Va por buen camino
Thumbs up

Perfecto, lo que quería, gracias!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
QuickReport: Imprimir una tabla desde un Array rogeliogamberro C++ Builder 1 24-02-2011 01:02:10
No puedo imprimir datos de un listbox rufo Impresión 3 08-10-2008 18:36:57
Hay alguna manera de imprimir el contenido de un Listbox David Varios 10 28-10-2007 18:31:31
Imprimir Listbox ordenadamente (con tabulaciones) sdiaz1983 Varios 1 25-09-2007 15:47:54
Imprimir contenido de un listbox ! Rafe Impresión 1 22-07-2005 09:45:03


La franja horaria es GMT +2. Ahora son las 04:16:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi