Einzelnen Beitrag anzeigen

daniel8520
(Gast)

n/a Beiträge
 
#1

TWebBrowser und OnProgressChange

  Alt 7. Jul 2004, 17:09
Hallo,

irgendwie kann ich nicht mehr rechnen!
Ich wollte den prozentualen Ladestatus einer Website, in einer Extended-Var wieder geben. Hab das so gemacht:
Delphi-Quellcode:
procedure TMainForm.WebProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var
    EVar: Extended;
begin
   If not Progress = 0
   then
   EVar := (Progress*100) / ProgressMax;

end;
Funkt auch während dem Seitenaufbau ganz gut. Aber am Ende meldet er dann hier
Delphi-Quellcode:
procedure TMainForm.WebProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var
    EVar: Extended;
begin
   If not Progress = 0
   then
   {-->}EVar := (Progress*100) / ProgressMax{<--};

end;
"Ungültige Gleitkommaoperation"
Kann mir jemand sagen warum?
  Mit Zitat antworten Zitat