Hallo,
Ja das abschneiden ohne runden ist gewollt. Aber kann mir einer Erklären warum das nicht funktioniert.
Delphi-Quellcode:
procedure TForm1.RzMemo1Click(Sender: TObject);
var lTemp3 : Double;
lTemp2 : Double;
lTemp1 : Double;
begin
lTemp3 := 2.4353000;
lTemp2 := Power(10,4);
lTemp1 := lTemp3*lTemp2;
lTemp2 := Trunc(lTemp1);
RzMemo1.Lines.Add(FloatToStr(lTemp1));
RzMemo1.Lines.Add(FloatToStr(lTemp2));
end;
lTemp1 ist 24353
lTemp2 ist 24352
edit:
Habe auch das ganze mit int versucht, aber gleiches Resultat
Delphi-Quellcode:
procedure TForm1.RzMemo1Click(Sender: TObject);
var lTemp3 : Double;
lTemp2 : Double;
lTemp1 : Double;
lInt : Int64;
begin
lTemp3 := 2.4353000;
lTemp2 := Power(10,4);
lTemp1 := lTemp3*lTemp2;
lInt := Trunc(lTemp1);
RzMemo1.Lines.Add(FloatToStr(lTemp1));
RzMemo1.Lines.Add(IntToStr(lInt));
end;
end.