Tut mir leid, dass ich euch nochmal bemühen muss aber ihc komme mit dem find first nciht klar.
Ich habe nämlcih den Pfas schon einlesen lassen und weiß jetzt nicht, wie der diesen Pfad benutzt.
Sieht ungefähr so aus:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject); // Verzichnis auswählen-Dialog
begin
SelectDirectory ('Choose Directory', '', pfad);
if SelectDirectory ('ChooseDirectory', '', pfad)
then Label1.Caption := (pfad)
else Showmessage ('Cancelled');
end;
// Ich Nehme an, Hier müsste das einlesen der .txt's rein oder so.?
procedure TForm2.Button2Click(Sender: TObject); // Hier soll dann gesucht werden (Code sehr unvollständig...)
begin
Results.ClearSelection;
StringList := TStringlist.Create;
try
finally
StringList.free;
end;
end;