findfirst, findnext problem

[youu]

Guten Morgen erstmal allen.

Irgendwie will es bei mir nicht klappen ich denke es liegt wohl an meinen Kopfschmerzen ;)

eine eigentlich relative simple Frage.

Wie kann ich einen Ordner bsp. Test durchsuchen und ALLE datein in ein Memo bzw Listbox anzeigen lassen?

MFG

[Klaus01]

Guten Morgen,

Schau mal hier bei Delphi Treff.
Grüße
Klaus

[Aurelius]

Oder hier: http://www.delphipraxis.net/internal...ect.php?t=2464

[SirThornberry]

wie sieht denn dein bisheriger Quelltext aus?
Als erstes musst du mit FindFirst die erste Datei suchen. Ist FindFirst erfolgreich durchläufst du mit FindNext in einer Schleife den Rest (bis FindNext nichts mehr findet). Anschließend mit FindClose die Suche abschließen. In der Schleife kannst du dann einfach die Ergebnisse von FindNext in dein Memo adden:

Delphi-Quellcode:

if FindFirst(...) = erfolg then
begin
  repeat
    //suchergebnis in memo einfügen
  until not (FindNext = erfolg);
  FindClose(...);
end;

[youu]

Danke habs nun hinbekommen.

Nur ein kleines Problem hab ich noch.
Und zwar speicher er mir den kompletten Pfad in die Listbox.
Kann man das auch so ändern das nur der Name der Datei gespeichert wird?

[Aurelius]

ExtractFileName()

[youu]

Danke 0815 :)

So nun aber die letzte Frage.

Ist es möglich bei einer If Anweisung es ca. so zumachen

If ZW = Suche +'*' then
bla bla

ZW = variable Zwischenspeicher
Suche = variable der Sucheingabe

Das heißt möchte gern wissen ob man nach der Datei xyz* suchen kann per if Anweisung?

[taaktaak]

Soll das * ein Platzhalter (Wildcard) sein?

[youu]

ja genau ;)

[Aurelius]

Was genau meinst du damit? Dass alle dateien, die mit xyz beginnen, gefunden werden sollen?

Wenn ja könntest du die Position der Wildcard per Posi := Pos(String,'*') ermitteln, den gewünschten string per LeftStr(String,Posi - 1) rausschneiden und dann mit CompareString() (?) vergleichen