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