int to float

[eddy]

Delphi-Quellcode:

procedure TFTest.SpeedButton1Click(Sender: TObject);
var
  i : integer;
  r : real;
begin
  i := 25;
  // r := i / 0.5 * 0.5;  // zum Testen
  r := i;
  ShowMessage(FloatToStr(r) + ' = ' + IntToStr(i));

  r := int(r);
  ShowMessage(FloatToStr(r) + ' = ' + IntToStr(i));
end;