Große Datei erzeugen

**St.Pauli**

Hi, hab ein Programm, dass eine große Datei (wie goß die Datei letztendlich wird ist mir egal) erstellen soll mit Zufallszahlen. Das klappt schon sehr gut. Nur ist das Programm nicht gerade stabil, weil die Datei sehr groß wird.

Deshalb meine Fragen:

1. Kann ich das Programm stabiler machen?

2. Wie kann ich ine Progressbar einbinden die mir zeigt wann die Datei fertig ist?
(Hab es hier mal versucht

)

markieren

Code:

			function Zufall(PLen:Integer):String;

var

  str:String;

begin

  Randomize; 

  str:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789^°!§$%&/()=?`´ß}{[]@€+~*# _-:.;,<> ÜÖÄüöä "';

  Result:='';

  repeat 

    Result:=Result+str[Random(Length(str))+1];

  until(Length(Result)=PLen)

end;

procedure TForm1.Button1Click(Sender: TObject);

VAR  a  : Textfile;

     I  : Integer;

begin

 Progressbar1.Min:=0;

 Progressbar1.Max:=500;

 for I:=0 to 500-1 do

   Progressbar1.Position:=I;

AssignFile (a, Rdom(4) +'.aaa');

 rewrite(a);

   Repeat

    writeln(a, Rdom(1));

   Until

    I = 0;

 closeFile(a);

end;

Große Datei erzeugen

Große Datei erzeugen

Forumregeln