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); end;
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Usuarios;
end;
end.