Problem mit StrToFloatF

[Neutral General]

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 ...

[Christian18]

hi,

um die Nachkomma stelle weg zu bekommen kannst du auch mit runden viel erreichen.

Bsp.

du hast eine zahl in einer variablen z.b. variable a und wert 10,1

also

a:=10,1

dann

a:=round(a/100*100)

[Neutral General]

Mh.. ich weis nicht ob das was bringt ... Das soll ja die Lebensenergieanzeige von einem (einfachen) Spiel sein und die wird immer wenn man gegen TStrom läuft um 0.2 verringert.
Der Wert verändert sich also immer.

[gordon freeman]

So wie ich das sehe wird das Leben ja nur um die Nachkommastelle verändert. Wenn du diese nicht anzeigst wird auch nichts verändert. Du müsstest also 5 mal draufdrücken, damit 1 Leben abgezogen wird und und es angezeigt wird. Wenn du 0.6 abzeihst rundet der Rechner automatisch ab und es wird 1 abgezogen! Bei 0.2 wird aufgerundet und es passsiert nichts!

[IngoD7]

Habe ich jetzt nur die Hälfte verstanden? Oder warum nimmst du nicht einfach

Form1.Label7.Caption := IntToStr(Trunc(Leben));

[Neutral General]

Oh, danke ... es funktioniert. Hatte ich ganz vergessen ...