Function mit mehreren Rückgabewerten

[gordon freeman]

Hi Leute,

wie deklariere ich eine Funktion, der zwei Werte übergeben werden und die auch zwei Werte zurückgibt?

tia, gordon

[Luckie]

Gar nicht. Nimm eine Prozedur mit var-Parametern.

[himitsu]

Luckie hat "hauptsächlich" Recht ... es geht nunmal nur ein Wert.

Var-Parameter:

Delphi-Quellcode:

Procedure xyz(Parameter1, Parameter2 ... 
  Var RückgabeWert1, RückgabeWert2: Typ; Var RückgabeWert3: Typ);

Vorbau Var angiebt, dass die Prozedur den Wert ändern kann
und man mit OUT anhgibt, das es sich nur um einen Ausgabeparameter handelt (siehe OH)

Delphi-Quellcode:

Procedure xyz(Parameter1, Parameter2 ... 
  Out RückgabeWert1, RückgabeWert2: Typ; Out RückgabeWert3: Typ);

Oder du teilst den Ausgabeparameter etwas auf > Stichwort Record:

Delphi-Quellcode:

Type MyRecord = Record
    RückgabeWert1, RückgabeWert2: Typ;
    RückgabeWert3: Typ;
  End;

Function xyz(Parameter1, Parameter2 ... ): MyRecord;

[Pseudemys Nelsoni]

Zumal so eine Funktion auch gar keinen Sinn machen würde, denn Welche Variable oder sonstwas kann 2 Werte aufnehmen?

[himitsu]

Zitat von Pseudemys Nelsoni:

... denn Welche Variable oder sonstwas kann 2 Werte aufnehmen?

Ein Record, Array .....

[alcaeus]

Evtl. könnte man auch einen Variant dazu verwenden:

Delphi-Quellcode:

function Foo(Bar: Integer): Variant;
begin
  Result := VarArrayCreate([1,3], varInteger);
  Result[0] := Bar;
  Result[1] := Bar+1:
  Result[2] := Bar-1;
end;

Greetz
alcaeus

[Pseudemys Nelsoni]

Zitat:

Ein Record, Array .....

dann kann man gleich einen record/array zurückgeben. und nicht über 2 werte..