doppelte Einträge verhindern beim öffnen mit OpenDialog

[newuser01]

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

[mkinzler]

In einer FileListe eines OpenDialogs dürften eigentlich keinen doppelten Einträge sein.

[newuser01]

nein ich meinte wenn in der ListBox schon die selbe Datei sein sollte wie die die ich öffnen möchte das soll verhindert werden also das 2. die gleiche Datei in der ListBox erscheint

[mkinzler]

Dann würde ich schon das Einbinden des Trings unterbinden:

Delphi-Quellcode:

for i := 0 to  OpenDialog2.Files.Count - 1 do
begin 
    if slTmp.IndexOf(OpenDialog2.Files[i]) <> 0 then slTmp.add( OpenDialog2.Files[i]);

[marabu]

Oder so:

Delphi-Quellcode:

procedure TDemoForm.AddButtonClick(Sender: TObject);
var
  i: Integer;
begin
  with OpenDialog, ListBox do
    if Execute then
    begin
      Items.BeginUpdate;
      for i := 0 to Pred(Files.Count) do
        if Items.IndexOf(Files[i]) < 0 then
          Items.Add(Files[i]);
      Items.EndUpdate;
    end;
end;

Grüße vom marabu

[newuser01]

DANKE !!!

[Cyberbob]

Wobei hier die Variante mit dem IndexOf zu bevorzugen wäre, da diese bei vielen Dateien und vielen Einträgen in der Liste schneller arbeitet, als das jedesmal bei einer neuen Datei die ganze Liste mit einer For-Schleife durchlaufen werden muss.

[mkinzler]

Zitat:

Zitat von Cyberbob

Wobei hier die Variante mit dem IndexOf zu bevorzugen wäre, da diese bei vielen Dateien und vielen Einträgen in der Liste schneller arbeitet, als das jedesmal bei einer neuen Datei die ganze Liste mit einer For-Schleife durchlaufen werden muss.

Es arbeiten aber beide Versionen mit .IndexOf ;-) Du meinst aber wohl Achims Methode.

[Cyberbob]

Uups, mein Fehler!
Einfach ignorieren

[newuser01]

und wie sieht es aus wenn ich zb: ein ganzes Verzeichnis mit DirectoryListBox in die ListBox übernehme und dieses Verzeichnis 2 mal übernommen werden sollte (doppelt)?

Delphi-Quellcode:

procedure TfVerzeichnis.btnOKClick(Sender: TObject);
var
  I: Integer;
  slTmp: TStringList;
begin

slTmp := TStringList.Create;
slTmp.Clear;
btnOK.Font.Color := clRed;
btnOK.Caption := 'bitte warten...';
FindAllFiles(slTmp,DirectoryListBox1.Directory+'\','*.mp3', true, true, false);
btnOK.Font.Color := clBlack;
btnOK.Caption := 'OK';


for I := 0 to slTmp.Count - 1 do
begin
Form1.lbAusgabe.Items.Add(slTmp.Strings[i]);
end;

slTmp.Free;
fVerzeichnis.Close;

end;

Gruß
Holger