Forum: Object-Pascal / Delphi-Language
Delphi
by Back2Code,
14. Feb 2013
Habs so gemacht:
optimiert := berechneteteBytes div 1024;
Progressbar1.Max := optimiert; //
for i := 1 to optimiert do
begin
FileStream.WriteBuffer(dataByte, 1024);
ProgressBar1.Position :=i;
Application.ProcessMessages;
Forum: Object-Pascal / Delphi-Language
Delphi
by Back2Code,
13. Feb 2013
Funktioniert. Dankeschön für die Hilfe. Kann gecloseed werden.
Forum: Object-Pascal / Delphi-Language
Delphi
by Back2Code,
13. Feb 2013
Meine Form gibt keine Rückmeldung mehr, auch nicht die Progressbar erst wenn die Schleife beendet ist geht sie mit einem Ruck voll.
Hier die prozedur:
// 1 MB = 1048576 Byte
procedure TForm2.BumpExe(sPfad: string);
var i: integer;
buffer : TBytes;
dataByte: Byte;
begin