DIV und MOD

[Chegga]

Hi,

Code:

...procedure TForm1.Zwischenzeit1Click(Sender: TObject); 
begin 
endzeitm:=StrToInt(Edit1.Text); 
endzeits:=StrToInt(Edit2.Text); 
Strecke:=StrToInt(Edit3.Text); 
Zeit:=(endzeitm*60)+endzeits; 
Gesamt:=(Zeit/10000)*Strecke; 

restmin:=IntToStr(Gesamt / 60); 
restsec:=IntToStr(Gesamt mod 60); 
end; 

end.

Ersetze div durch /
Warum? Betrachte den vorherigen Beitrag von mir.

MfG Marc

P.S.: Versuchs mal mit IntToStr...