Sziasztok !
Egy könnyű feladat Nektek megoldhatatlan probléma nekem, kérlek segítetek!
Egy számgenerátor 1-3000-ig egymás alá beírja a számokat egy fájlba.
Minden számnál megnyitja a proba.txt fájlt és hozzáír, ezért nagyon nagyon lassú.
Kérlek javítsátok már ki, hogy gyorsabb legyen. kb 1000000-ig kellene működnie.
Köszönöm szépen.

Itt a forrás:



procedure TForm1.Button1Click(Sender: TObject);
var f: TextFile;
a :  word;
begin
  a:=1;

   While a<3000 do
       begin


   AssignFile(f,'proba.txt');
  {$I-}
  Reset(f);
  if IOResult<>0 then Rewrite(f)
  else Append(f);
  {$I+}
  Writeln(f,(a));
  CloseFile(f);
  a:=a+1;
  end;

end;


end.