Forum: Sonstige Fragen zu Delphi
Delphi
by Dani,
19. Jun 2004
Herr, vergib mir diese while-Schleife :angle2:
procedure DeleteDuplicates(aStrList: THashedStringlist);
var i: Integer;
begin
for i:=aStrList.count-1 downto 0 do
If aStrList.IndexOf(aStrList)<>i then
aStrList.Delete(i);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Dani,
16. Jun 2004
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. :mrgreen:
Alternativ dazu kannst du die...