Hallo Community,
ich möchte eine Program erstellen mit dem man z.b. 10 Datein in einem Verzeichnis erstellen kann.
Diese Datein müssen alle einen unterschiedlichen Namen haben, es wäre am besten wenn sie z.b. so benannt werden:
text1.txt, text2.text...
Das ist mein Code, leider funktioniert er nicht
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
sl : TStringlist;
begin
for sl:= 1 to 10 Do
sl := TStringlist.Create;
try sl.Add('@echo off');
sl.Add('pause');
sl.SaveToFile('C:\test2.bat');
finally
sl.Free;
end;
end;
end.
Ich hoffe ihr versteht mein Problem
Danke für eure Antworten
