Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Imprimir array en listBox (https://www.clubdelphi.com/foros/showthread.php?t=92136)

Unkger 06-08-2017 03:37:18

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 ¿¿¿:confused:???
  end;
  end;
end;
{$R *.dfm}

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

end.

ecfisa 06-08-2017 05:02:31

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 :)

Unkger 06-08-2017 05:20:43

Perfecto, lo que quería, gracias!


La franja horaria es GMT +2. Ahora son las 15:03:23.

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