Delphi-Quellcode:
a := StrToFloat(Label1.Caption);
b := StrToFloat(Label2.Caption);
c := a / b;
d := Trunc(c);
e := Frac(c);
Label3.Caption := FloatToStr(d);
Label4.Caption := FloatToStr(e);
oder, um es mal mit nur einem Label zu machen, für's Ergebnis
Delphi-Quellcode:
...
Label3.Caption := Format('%n (Rest = %n)', [d, e]);