Beliebig viele Datein erstellen

[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

[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]