Beliebig viele Datein erstellen

[CazperFuture]

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 :coder2:

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 :thumb:

Danke für eure Antworten :wink:

[DeddyH]

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  sl : TStringlist;
  i: integer;
begin
  sl := TStringlist.Create;
  try
    for i := 1 to 10 Do
      begin
        sl.Clear;
        sl.Add('@echo off');
        sl.Add('pause');
        sl.SaveToFile(Format('C:\test%d.bat',[i]));
      end;
  finally
    sl.Free;
  end;
end;

Bei Fragen fragen :zwinker:

[edit] Wobei das dann so mehr Sinn macht (der Dateiinhalt ändert sich ja nicht):

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  sl : TStringlist;
  i: integer;
begin
  sl := TStringlist.Create;
  try
    sl.Add('@echo off');
    sl.Add('pause');    
    for i := 1 to 10 Do
      sl.SaveToFile(Format('C:\test%d.bat',[i]));
  finally
    sl.Free;
  end;
end;

[/edit]

[markus5766h]

Hallo,
wie wär's damit

Delphi-Quellcode:

procedure TForm1.CreateFiles(Sender: TObject);
var
i : Integer;
s, dir: String;
f : TextFile;
begin
dir := 'C:\Temp'; // Pfad festlegen, hier C:\Temp
for i := 1 to 10 do
 begin
  s := dir+'\Text'+IntToStr(i)+'.txt';
  if not FileExists(s) then
   begin
    assignFile(f, s);
    rewrite(f);
    closeFile(f);
   end; // end if
 end; // end for .. to
end; // end procedure