Kein gültiger Integer Wert

Zack · Hält's aus hier Beiträge: 11

Morgen !

Vieleicht stehe ich jetzt etwas auf dem Schlauch... aber wieso klappt das hier nicht :

Quelltext

1:
2:
3:
4:
5:
6:
7:

    If TarifBox1.ItemIndex = 6 then Kosten.Text := '11.00';

    if ZeitraumBox1.Text = 'Halbjährlich' then
      begin
       // iBuffer := strtoint(Kosten.Text) * 6;  Geht auch feiner ...
        Jahreskosten.Text := IntToStr(6 * StrToInt(Kosten.Text));
      end

Der Deb. fliegt mir immer wieder mit der Meldung 5.00 oder oder auch 11.00 ist kein Gültiger Integer Wert. Ich meine aber das es mit dem Punkt richtig ist oder ?

Gast Erhaltene Danke: 1

Integerzahlen haben keine Nachkommastellen. "11.00" ist also kein Integerwert. "11" ist ein Integerwert.

Um mit richtigen Zahlen zu arbeiten solltest du dir die "Realen Zahlen" bzw. "Reelle Typen" angucken:

Real, Single, Double, Extended, Comp und Currency sind Reelle Typen.

hitstec · Beiträge: 295

Salute.

11.00 ist aber kein Integer, sondern ein Current.
versuch doch mal statt

markieren

Quelltext

1:	strtoint(X)

mal das

markieren

Quelltext

1:	Round(strtocurr(X))

Zack · Hält's aus hier Beiträge: 11

Ja es klappt Prima vielen Dank !!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme