Volltextsuche mit Delphi

[p80286]

nee, das geht ja auch nicht!
Angenommen Du suchst in

Code:

C:\

nach

Code:

*.sql

dann sucht Deine Routine in

Code:

C:\

namch einer Datei die die Bedingung

Code:

*.sql

erfüllt, da dies nicht der Fall ist (höchstwahrscheinlich) verabschiedet sich Deine Suche gleich wieder.
wenn Du rekursiv suchen willst, dann mußt Du auf jeden Fall die (möglichen) Verzeichnisse

Delphi-Quellcode:

if Checkbox1.Checked then
           begin
             if (Rec.Name <> '.') and (Rec.Name <> '..') then
               FileSearch( Path+Rec.Name , FileName);
           end;

extra behandeln.
Übrigens ist der Rückbezug auf eine andere Komponente des Forms nicht unbedingt der Weisheit letzer Schluß. Besser wäre es der Procedure gleich ein recursiv:boolean mitzugeben!

Gruß
K-H