Kopieren mit TProgressbar Ausserhalb des gültigen bereiches

[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;