Beliebig viele Datein erstellen

[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