Hab das jetzt über Type Record gemacht.
In der einen
Unit deklariert:
Delphi-Quellcode:
type
TWerte = record
a: real;
b: real;
d: real;
d: real;
e: real;
end;
function calc: TWerte;
begin
Result.a := Table1.FieldByName('Rechnungswert').AsInteger);
Result.b := Result.a * 15 / 100;
Result.c := Result.a + Result.b;
Result.d := Result.c * 16 / 100;
Result.e := Result.c + Result.d;
end;
Weil ich diese Werte für einen Rave Report brauche muss ich aber die einzelnen Werte abfragen.
Bei meinem Aufruf wird die Funktion 'calc' in der anderen
Unit aber jedesmal aufgerufen, was natürlich langsam ist.
Delphi-Quellcode:
procedure blabla...
begin
SetParam('pNettoBetrag', FloatToStrF(calc.a, ffCurrency, 99, 2));
SetParam('pAufgeld', FloatToStrF(calc.b, ffCurrency, 99, 2));
SetParam('pNettoIncAufgeld', FloatToStrF(calc.c, ffCurrency, 99, 2));
SetParam('pMwst', FloatToStrF(calc.d, ffCurrency, 99, 2));
SetParam('pGBetrag', FloatToStrF(calc.e, ffCurrency, 99, 2));
end;
Wie kann ich denn erreichen dass dies nur einmal aufgerufen wird ?