Ich glaub du bist hier in dem Unterforum falsch?
Wusste nicht ob ich hier richtig bin. Wenn die Aussage stimmt bitte ich einen der Mods den Thread zu verschieben.
Nun zu meiner Frage bzw. Problem
Habe das Programm jetzt soweit am laufen das es die Unterordner und Dateien anzeigt. Nun will ich aber noch dass das Programm in den Dateien nach Wörter (Strings) sucht. Dazu habe ich noch eine zusätzlich Combobo in das Formular "eingebaut". Nun meine Frage wie kombiniere ich die Zwei Aufgaben (Suche nach Dateien und Suche In Dateien). Habe schon etwas angefangen (auskommentiert) aber komme nun nicht weiter:
Code:
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path: string;
{ *sl: TStringList;* }
{ *i: Integer;* }
begin
Path := IncludeTrailingBackSlash(PathName);
try
{ *sl := TStringList.Create;* }
{ *sl.LoadFromFile(Path);*}
if FindFirst (Path + '*', faAnyFile, Rec) = 0 then
begin
repeat
if (Rec.attr in [faDirectory, (faDirectory+faArchive)]) then
begin
if Checkbox1.Checked then
begin
if (Rec.Name <> '.') and (Rec.Name <> '..') then
FileSearch( Path+Rec.Name , FileName);
end;
end else
if MatchesMask( Rec.Name, FileName) then
Listbox1.Items.Add(Path + Rec.Name);
until FindNext(Rec) <> 0;
end;
finally
FindClose (Rec);
end;
end;
Stimmt das was ich bisher eingeben habe (ich weiß ist nicht viel)?