Ich habe das jetzt mal so gemacht wie ich das verstanden habe,
Aber kann es sein dass er da die file grösse jetzt 10 mal schreibt??
Abgesehen davon habe ich jetzt irgendwie ein durcheinander mit den variablen, ich runde hin und her und am schluss
ist dann mein ergebnis nicht mehr genau. Was mache ich falsch? Also Es funktioniert, aber das ergebnis hat einfach eine Abweichung.
hier mal mein Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
R: Real;
I, IMB: integer;
IMB2: int64;
begin
R:=StrToFloat(JvEdit1.Text);
IMB:=round(R*1048576/10);
If SaveDialog1.Execute then
begin
IMB2:=IMB;
fs := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
for I := 1 to 10 do
begin
fs.Size := fs.Size+IMB2;
ProgressBar1.Position:=ProgressBar1.Position+10;
end;
fs.Free;
end
end;