Casi no he trabajado con ListBox y apenas pude comprender como crear un Arreglo en la Universidad... Pero mas o menos me saldría así
:
Código Delphi
[-]var
Arreglo: array[1..3] of byte;
Código Delphi
[-]
Procedure CrearArreglo;
var
a : byte;
begin
for a:=1 to 3 do
begin
Arreglo[a]:= 111;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
a : byte;
begin
CrearArreglo;
for a:= 1 to 3 do
begin
ListBox1.Items.Add(IntToStr(Arreglo[a]));
end;
end;
Si entendí mal la pregunta, o lo hice mal
, por favor corregirme duramente
Es que apenas me defiendo con los arreglos
Saludos!