Currency-felder addieren?!?!?

[plautzer]

Hi,

ich habe noch eine kleines problem, dass ich nciht gelöst bekomme.

Ich habe 3 currency felder: [brutto, netto, neben]
Brutto soll ich aus netto und neben addieren:

Delphi-Quellcode:

e1:=strtoint(e_netto.Text);
e2:=strtoint(e_neben.Text);
e:=e1+e2;
e_brutto.Text:=inttostr(e);
table1.Edit;

Netto wiederrum, addiert sich aus den ganzen Nebenkosten:

Delphi-Quellcode:

table1['Nebenkosten']:=table1['Kaltwasser']+table1['Warmwasser']+table1['Antenne']...

Mein problem, oder besser delphi's problem ist, das es nicht mit currency rechnen kann.
Also musste ich netto u neben auf integer setzen, was jez aber ka*ke aussieht, weil die währungseinheit fehlt.

Hat jemand ne elegante Lösung für mich?

Thx,

Plautzer

[fkerber]

Hi!

Geht es dir nur um die Ausgabe?

Delphi-Quellcode:

Edit1.Text:=strtofloatf(zahl, FFfixed, 10,2) + '€';

Ciao fkerber

[CenBells]

Hallo,

es gibt, zumindest bei D7, die funktion CurrToStr(AValue: Currency): String;

Gruß
Ken