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?
Flasche Ausgabe bei Rechnung
Re: Flasche Ausgabe bei Rechnung
Das Ergebnis ist richtig. Ich nehme an, dass das Format Dich irritiert. Probiers mal damit:
'0.000' gibt dabei das Format an. Das kannst Du so abwandeln wie Du es möchtest.
Code: Alles auswählen
uses sysutils;
...
Label1.Caption:=FormatFloat('0.000',H);
-
- Lazarusforum e. V.
- Beiträge: 530
- Registriert: So 10. Sep 2006, 23:24
- OS, Lazarus, FPC: Linux Mint 21.3; Lazarus 3.0 FPC 3.2.2; RaspiOS
- CPU-Target: AMD 64, ARM 32
- Wohnort: nr Stuttgart
Re: Flasche Ausgabe bei Rechnung
Wo kommen denn die Flaschen raus?
Linux Mint 21; Lazarus 2.2.4 FPC 3.2.2; RaspiOS