Progressbar beim erstellen einer Datei?

[marabu]

Hallo Pascal,

ich habe versucht nicht zuviel an deinem Code zu ändern - getippt und nicht getestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  e: Extended;
  i: Integer;
  iChunk, iSize: Int64;
begin
  e := StrToFloat(JvEdit1.Text);
  iSize := Round(e * 1024 * 1024);
  iChunk := Trunc(iSize / 10);
  If SaveDialog1.Execute then
  begin
    fs := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
    for i := 1 to 10 do
    begin
      if i = 10 
        then fs.Size := iSize
        else fs.Size := i * iChunk;
      ProgressBar1.StepIt;
      ProgressBar1.Refresh;
    end;
    fs.Free;
  end
end;

marabu