Form hängt sich bei der Schleife auf

[sx2008]

Zitat von Robin2k:

Habs so gemacht:

Delphi-Quellcode:

    optimiert := berechneteteBytes div 1024;
    Progressbar1.Max := optimiert; //
    for i := 1 to optimiert do
      begin
        FileStream.WriteBuffer(dataByte, 1024);
        ProgressBar1.Position :=i;
        Application.ProcessMessages;
      end;

Was jetzt noch fehlt sind 2 Dinge:
1.) muss die Variable "dataByte" einen anderen Namen (und Typ) bekommen und natürlich immer auch mit 1024 Bytes gefüllt sein
2.) darf man den Rest am Ende nicht vergessen. Dazu die Restlänge mit mod berechnen und mit WriteBuffer wegschreiben. Die Aktualiserung des Progressbars ist dabei nicht mehr sinnvoll.