Delphi-PRAXiS - Delphi Addieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Addieren (https://www.delphipraxis.net/146806-addieren.html)

Ouou	27. Jan 2010 08:50

Addieren

Moin Liebe DPler...

ich bräuchte nen rat und zwar möchte ich 3 editfelder addieren und die summe in ein anderes ausgeben.

Hier mal mein Code:

Delphi-Quellcode:

			Edit5.Text := StrToFloatDef(PersonalNk1.Text,0) + StrToFloatDef(PersonalNK2.Text,0) + StrToFloatDef(PersonalNK3.Text,0);
		

Beim Compilieren tritt aber immer ein Fehler auf...

Kann jemand helfen?

MFG

tkone

27. Jan 2010 08:55

Re: Addieren

am besten kann man dir helfen wenn du immer die fehlermeldung mit angibst.
"ein fehler" ist da zu ungenau ;)

ich würde mal sagen, dass du nen float-wert an ein edit feld gibst bringt den fehler.
editfelder wollen nen string

daddy

27. Jan 2010 08:59

Re: Addieren

Du weist da einem String einen Real-Wert zu, musst also das Ergebnis Deiner Addition noch mit FloatToStr umwandeln.

Gruß
Daddy.

Teekeks

27. Jan 2010 09:01

Re: Addieren

Zitat:

Zitat von Ouou

Moin Liebe DPler...

ich bräuchte nen rat und zwar möchte ich 3 editfelder addieren und die summe in ein anderes ausgeben.

Hier mal mein Code:

Delphi-Quellcode:

			Edit5.Text := StrToFloatDef(PersonalNk1.Text,0) + StrToFloatDef(PersonalNK2.Text,0) + StrToFloatDef(PersonalNK3.Text,0);
		

Beim Compilieren tritt aber immer ein Fehler auf...

Kann jemand helfen?

MFG

Mach das so:

Delphi-Quellcode:

			Edit5.Text := FloattoStr(StrToFloatDef(PersonalNk1.Text,0) + StrToFloatDef(PersonalNK2.Text,0) + StrToFloatDef(PersonalNK3.Text,0));
		

Du musst ja deine In Zahlen umgewandelte Strings dann auch wieder in einen String zurück-Wandeln...

Gruß Teekeks

EDIT: Wo ist der rote Kasten hin??

Ouou	27. Jan 2010 09:12

Re: Addieren

ahh ok danke euch vielmals habe es verstanden klappt auch wunderbar...

Bis denn

Alle Zeitangaben in WEZ +1. Es ist jetzt 17:11 Uhr.