Rave Report -> Zahl Formatieren

[Shaky]

Hi.

Ich hab irgendwie nen doofes Problem.
Also ich hab hier ein Databand was ein so ein Calctext richtig mit der Summer der einzelnen Zeilen füllt.
Jetzt hab ich auf dem Calctext bei events Afterprint, Afterreport

Text5.text:=floattostr(trunc((CalcText1.value / 116) * 100 *100)/100);
Text6.text:=floattostr(trunc((CalcText1.value - strtofloat(text5.text)) * 100) / 100);
text5.text:=text5.text + ' €';
text6.text:=text6.text + ' €';

Weil dieses Textfield hat ja keine Formatproperty also Displayformat oder so.

#,##0.00 € möchte ich haben

Aber meine Methode da oben die zeigt wenn die letzten stellen 0 sind zeigt das textfeld Sie nicht an.
Deshalb brauche ich irgendwie ne Komponente wo ich Displayformat draufmachen kann.

Danke.

Achja benutze Rave Report 6.0 BE und Delphi 2005 Prof.

[Niko]

Hi,

damit sollte es funktionieren:
text5.text := Format("%n €", [trunc((CalcText1.value / 116) * 100 *100)/100]); Grüße,

Niko

[marabu]

Hallo Shaky,

ich kenne Rave nicht, aber schau mal in der Online-Hilfe unter Format-Strings.

Delphi-Quellcode:

var // global
  Steuersatz: double = 0.16;

procedure ...
var
  brutto, netto: double;
begin
  brutto := CalcText1.value;
  netto := brutto / (Steuersatz + 1.0);
  Text5.text := Format('%m', [netto]);
end;

Grüße vom marabu

[Shaky]

Mmh jo danke, so wäre das in delphi direkt.

Aber in dem Visual Designer rechnet der das halt erst zusammen.
Und die function format gibt es da nicht.
das ist ja das Problem.

[marabu]

Hallo Shaky,

ich habe mir die Online-Hilfe zu Rave BE angesehen. CalcText hat eine Eigenschaft DisplayFormat, mit der sich dein Problem eigentlich lösen lassen sollte. Leider fehlt bei mir der Anhang mit den Format-Strings, aber vielleicht hilft Probieren oder jemand anderes hilft.

marabu

[Shaky]

Jo CalcText kann das.
Das ist ja auch mein Summenfeld. Das tuts.

Das komische ist halt das ich damit auch irgendwie kein 2. Calctext mit berechnen kann.
Das hatte ich ja Probiert. Aber irgendwie geht das nicht.

Muss ich vielleicht nochmal anders probieren.

Aber danke