Variablenübergabe und Rückgabe Funktion

[needatip]

Hallo,
wie übergebe ich an eine nicht lokale Funktion/Prozedur (in anderer Unit) einen Wert vom Typ REAL, in der dann Berechnungen ausgeführt werden und danach 4 verschiedene errechnete Werte an die ursprüngliche Unit zurückgegeben werden?

z.b.
Übergabe an Funktion = Nettobetrag
Rückgabe
Wert1 : Nettobetrag * 0.15
Wert2 : Wert1 + Nettobetrag
Wert3 : Wert2 * 0.16
Wert4 : Wert3 + Wert4

Oder verwende ich besser eine Prozedur mit Variablenparameter ?

[leddl]

Zitat von needatip:

Oder verwende ich besser eine Prozedur mit Variablenparameter ?

Es würde zwar gehen, indem du dir einen Typ schreibst, der die benötigten Werte beinhaltet, aber deutlich bequemer geht es wirklich über Variablenparameter

[needatip]

wie ging das nochmal?

SQL-Code:

function Calc(x : real; var a,b,c,d : real);
a := x * 0.15;
b := a + x;
c := b * 0.16;
d := b + c;
end;

aber beim Aufruf möchte ich doch nur eine Real-Variable übergeben ?

[needatip]

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 ?

[oki]

Hi,

oder Rückgabewert der Function als Array of Real; oder Array [0..3] of Real; oder TRealArr = Array of Real und Rückgabe als TRealArr ......

oder so vie vorher beschrieben


Gruß oki

[oki]

Ach so, an needatip,

wenn kein Rückgabewert, dann procedure.

nicht so:
function Calc(x : real; var a,b,c,d : real); sondern so:
procedure Calc(x : real; var a,b,c,d : real); gruß oki

[needatip]

Ok Danke. War gerade geistig abwesend!