Real als Caption ausgeben

[Illuminati]

hiho,

ich bin gerade an einem kleinem Porgramm für die Schule dran und bin auf ein Problem gestoßen, welches ich nicht lösen kann.
Ich errechne eine Zahl - in meinem Falle Preis, welche als Real gespeichert wird.
Nun möchte ich diese Zahl in einem Edit-Feld und als Caption eines Labels ausgeben. Das Edit-Feld klappt auch super, aber beim Caption hat das Programm keine Lust mehr :P

hier mal der Quelltext:

Delphi-Quellcode:

var
preis : Real;

begin
Preis := round(Preis*100)/100;
            L_karte_preis.Caption := FloatToStr(preis);
            E_preis.Text := FloatToStr(Preis);
end

keine Ahnung warum er die Zahl nicht als Caption ausgibt...

MfG
Illu

[mkinzler]

Erzwinge mal eine Neuzeichnung des Lables

[madtom]

Zitat:

Zitat von Illuminati

hiho,

ich bin gerade an einem kleinem Porgramm für die Schule dran und bin auf ein Problem gestoßen, welches ich nicht lösen kann.
Ich errechne eine Zahl - in meinem Falle Preis, welche als Real gespeichert wird.
Nun möchte ich diese Zahl in einem Edit-Feld und als Caption eines Labels ausgeben. Das Edit-Feld klappt auch super, aber beim Caption hat das Programm keine Lust mehr :P

hier mal der Quelltext:

Delphi-Quellcode:

var
preis : Real;

begin
Preis := round(Preis*100)/100;
            L_karte_preis.Caption := FloatToStr(preis);
            E_preis.Text := FloatToStr(Preis);
end

keine Ahnung warum er die Zahl nicht als Caption ausgibt...

MfG
Illu

Hallo, mal davon abgesehen, das Du Deinen Preis nicht initialiesiert hast und Deine Berechnung *100/100 ein bisschen unlogisch ist und hinter
dem letzten end das ";" fehlt, sollte die sache funktionieren.

Beste Grüße

madtom

[Illuminati]

@mkinzler
Sorry, aber ich arbeite noch nicht so lange mit Delphi.. Was soll ich tun? Neuzeichnung? Ein Beispiel hilft mir meistens ;)

@madtom

diese round sache haben wir in unseren Kurs "entwickelt" ^^ Wir runden einen Wert mit vielen Stellen ab aber vorher multiplizieren wir mit 100 und dividieren nacher nochmal mit 100, so bekommen wir zwei Stellen nach dem Komma hin^^ Geht sicherlich auch leichter..
und es funktioniert nicht. Das Label bleibt völlig unverändert. Leider..


Ich weiß zwar nicht warum, aber jetzt funktioniert es. Habe die Programmzeile einfach einige Zeilen weiter unten geschrieben und dann hat es funktioniert. Vielen Dank trotzdem.
Euer Forum gefällt mir sehr gut, da so viele online sind, die schnell und gut helfen.

MfG
Illu

[mkinzler]

@madtom: Der Code rundet auf 2 Stellen nach dem Komma.

Delphi-Quellcode:

Form.Update;