Código Delphi [-] ... var i: Integer; begin if OpenDialog1.Execute then for i:= 0 to Opendialog1.Files.Count-1 do if ListBox1.Items.IndexOf(opendialog1.Files[i]) = -1 then ListBox1.Items.Add(OpenDialog1.Files[i]); end;
... var i: Integer; begin if OpenDialog1.Execute then for i:= 0 to Opendialog1.Files.Count-1 do if ListBox1.Items.IndexOf(opendialog1.Files[i]) = -1 then ListBox1.Items.Add(OpenDialog1.Files[i]); end;