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
)
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;