Delphi-PRAXiS

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 09: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 09: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 09: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 10: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 10:12

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

Bis denn


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf