Progressbar einbinden

[razer91]

also das ist jetzt nur die Schleife, wenn du mehr oder alles brauchst einfach sagen :

Delphi-Quellcode:

for writerounds := 0 to filesize do
 write (tf, '0');  //wobei 'tf' die Textfile ist
 closefile (tf);
end