nach doppelten dateinamen suchen

[jAcK oRsEn]

hi,

wie kann ich nach doppelten dadateinamen suchen lassen?

mal so nen ansatz? jetzt kommt nicht an mit findfirst, findnext, denn etwas mehr säwre sicher von vorteil!

[Nicodius]

meinst du jetzt unter windows oder hast du sie scho nwo reingeladen?


schlreifen :stupid:

[jAcK oRsEn]

ne unter windows mit delphi!!!!


ja, ich brauche infos

[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. :mrgreen:

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

[jAcK oRsEn]

hab keine ahnung wie das funktionieren soll

[Dani]

Herr, vergib mir diese while-Schleife :angle2:

Delphi-Quellcode:

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