Ich versuche vergeblich einen Real-Wert so zu formatieren das er keine Nachkommastellen mehr hat.
Delphi-Quellcode:
if Sprite is TStrom then begin
Leben := StrToFloat(Form1.Label7.Caption);
Leben := Leben - 0.2;
Form1.Label7.Caption := FloatToStrF(Leben,ffFixed,3,0);
end;
So : Dabei passiert rein gar nichts ! Im Formular hat Label7 immer noch den gleichen Wert.
Delphi-Quellcode:
if Sprite is TStrom then begin
Leben := StrToFloat(Form1.Label7.Caption);
Leben := Leben - 0.2;
Form1.Label7.Caption := FloatToStrF(Leben,ffFixed,3,1);
end;
So funktioniert es, aber es ist eben noch eine Stelle nach dem Komma da ...
Das seltsame ist :
Delphi-Quellcode:
if Sprite is TStrom then begin
Leben := StrToFloat(Form1.Label7.Caption);
Leben := Leben - 0.6;
Form1.Label7.Caption := FloatToStrF(Leben,ffFixed,3,0);
end;
So funktioniert es super. Hier ist das Problem aber das ich in 0.2er Schritten abziehen will ...
Sobald ich bei
Leben := Leben - 0.6;
weniger als 0.6 abziehe funktioniert es nicht ...