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 ?

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

wie ging das nochmal?

markieren

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 ?

Hab das jetzt über Type Record gemacht.
In der einen Unit deklariert:

zusammenfalten · markieren

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.

markieren

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 ?

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

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

Ok Danke. War gerade geistig abwesend!