Flasche Ausgabe bei Rechnung

[Clemensch]

Hey Freunde!
ich arbeite gerade an einen Rechner doch bei der Ausgabe meines Ergebnisses kommt es vollkommen komisches.
Hier ist der Quellcode:

var H, counter : double;
s : string;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
H:= 1.008
counter:=counter+1;
H:=H+counter;
str(H,s);
Label1.Caption:=s;
end;
end.


wenn ich nun auf das SpinEdit-Feld drücke kommt als Ergebnis 2.0080000000000000E+00

Woran kann dies liegen und wie kann man das lösen?

[400kmh]

Das Ergebnis ist richtig. Ich nehme an, dass das Format Dich irritiert. Probiers mal damit:

Code: Alles auswählen

uses sysutils;

...

Label1.Caption:=FormatFloat('0.000',H);

'0.000' gibt dabei das Format an. Das kannst Du so abwandeln wie Du es möchtest.

[Linkat]

Wo kommen denn die Flaschen raus?