nach doppelten dateinamen suchen

[Dani]

Hi!

FindFirst, FindNext, ExtractFileName, THashedStringlist, THashedStringlist.IndexOf
Das ist doch schonmal mehr

Du speicherst alle Suchergebnisse in einer Stringliste. Bei jeden Fund schaust du mit IndexOf nach, ob der Dateiname bereits in der Liste steht. Beispiele und Beschreibungen für alle genannten Funktionen gibts in der Online Hilfe.

Alternativ dazu kannst du die Suchergebnisse auch in einer Schleife von oben nach unten durchgehen.
z.B.

Delphi-Quellcode:

procedure DeleteDuplicates(aStrList: THashedStringlist);
var i: Integer;
begin
 i := aStrList.count-1;
 while i > -1 do
  begin
   If aStrList.IndexOf(aStrList[i])<>i then
    aStrList.Delete(i);
   dec(i);
  end;
end;

Gruß,
Dani