Hi zusammen,
Ich weiss zwar wie man eine Progressbar daten zuweisen kann,
aber ich habe keine Ahnung wie ich eine Progressbar für einen Fortschritt verwenden kann.
Hab auch schon gegoogelt und hier im forum geschaut, aber ich werde einfach nicht so schlau draus...
Hier mal mein Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var I: Real;
IMB: integer;
S: string;
T: TextFile;
begin
I:=StrToFloat(JvEdit1.Text);
IMB:=round(I*1048576);
s:=StringOfChar('0', IMB);
If SaveDialog1.Execute then
begin
assignfile(t,SaveDialog1.FileName);
rewrite(t);
writeln(t,s);
closefile(t); //Datei schliessen
end
end;
Vielleicht zur erklärung, im edit Feld kann man eine zahl eingeben, beim buttonklick wird dann eine datei erstellt die so
gross ist wie die eingegebene Zahl.
Jetzt bei 2 MB geht das ja noch schnell, aber bei z.B. 500 MB geht das dann recht lange und darum möchte ich eine ProgressBar anzeigen.
Jetzt habe ich eigentlich keine Ahnung wie ich sowas machen muss, aber ich könnte mir das so vorstellen:
IMB = endgrösse
progressbar.max := IMB
und dann einfach bei jedem erstellten byte progressbar.position um eine stelle erhöhen oder so...
Nur wie krieg ich dann raus wieviel der schon erstellt hat?
Vielen dank
greez Headi