Hallo
Ich möchte gerne verhindern das wenn ich mit Opendialog Dateien öffne und in der ListBox eintragen lasse diese doppelt erscheinen
folgendes hab ich bereits versucht finde aber den Fehler nicht
Delphi-Quellcode:
var i,j,k: Integer;
slTmp:TStringList;
begin
slTmp := TStringList.Create;
slTmp.Clear;
try
if OpenDialog2.Execute then
begin
for i := 0 to OpenDialog2.Files.Count - 1 do
begin
slTmp.Add(OpenDialog2.Files[i]);
end;//for
end;//if
for j := 0 to slTmp.Count -1 do
begin
if slTmp.Strings[j] = lbAusgabe.Items.Strings[j] then
begin
slTmp.Delete(j);
end;
end;//for
for k := 0 to slTmp.Count -1 do
begin
lbAusgabe.Items.Add(slTmp.Strings[k]);
end;//for
except
end;//try
end;
Gruß
Holger