Kopieren mit TProgressbar Ausserhalb des gültigen bereiches

[gee21]

Zitat von sx2008:

Exception abfangen, mit nützlichen Infos erweitern und dann neu auslösen:

Delphi-Quellcode:

procedure FastFileCopyCallBack(Position, Size: longint);
begin
  try
    Form1.ProgressBar1.Max := Size;
    Form1.ProgressBar1.Position := Position;
  except
    on E:Exception do
    begin
      E.Message := E.Message +#13#10 + Format('size=%d pos=%d', [Size, Position]);
      raise;
    end;
end;

Hi und danke für deine Hilfe. Vielleicht sollte ich noch erwähnen, dass ich ein ziemlicher Anfänger bin

Bekomme nun folgende Meldung.

Eigenschaft TProgressbar ausserhalb des zulässigen Bereichs
size=-1761105920 pos=49152