Dateiliste - Dateien und Verzeichnisse aussortieren anhand einer StringListe

[Jim Carrey]

GetFiles gucke ich mir in jedem Fall noch an.

Meine Überlegung gerade beim Einkaufen war so in etwa Pi Mal Daumen ......
Ich habe z.B. SR.Name = "C:\Verzeichnis1\Datei1.txt".
Jetzt übergebe ich SR.Name an meine Funktion, die durch meine StringList iteriert:

Delphi-Quellcode:

for i := 0 to aStringList.Count - 1 do
 begin
  if Pos(sFindMe, aStringList.Strings[i]) = 1 then
   begin
    bRes := True;
    Break;
   end;
 end;

In der StringList steht sagen wir mal ...

Code:

C:\Verzeichnis1\Datei1.txt

Wenn sFindMe also an Stelle 1 (Anfang) gefunden wird, ist die Bedingung erfüllt.

Wäre das ein Anfang oder denke ich gerade zu kompliziert wegen der Schokolade die in der Küche auf mich wartet?

Oder ich prüfe andersherum:

Delphi-Quellcode:

for i := 0 to aStringList.Count - 1 do
 begin
  if Pos(aStringList.Strings[i], sFindMe) = 1 then // HIER ANDERS HERUM
   begin
    bRes := True;
    Break;
   end;
 end;

Dann könnte in der StringList

Code:

C:\Verzeichnis1\

stehen und es würde trotzdem bei

Code:

C:\Verzeichnis1\Datei1.txt

zutreffen.

(was ausbaubedürftig wäre)