Código Delphi [-] for i:= 1 to 3 do Listbox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.reg');
for i:= 1 to 3 do Listbox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.reg');
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin Opendialog1.Execute; for i:= 0 to Opendialog1.Files.Count-1 do Listbox1.Items.Add(opendialog1.files[i]); end;
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin Opendialog1.Execute; for i:= 0 to Opendialog1.Files.Count-1 do Listbox1.Items.Add(opendialog1.files[i]); end;