Hi!
Du hast ein begin...end vergessen. Bei ,ehr als einer Anweisung muss die For-Schleife selbiges beinhalten.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
SL: TStringList;
begin
SL:=festplatten;
for i := 0 to SL.Count - 1 do
begin
SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);
SearchFiles('test2.txt',SL.Strings[i],true,ListBox1.Items);
end;
end;
Ciao Frederic