Function mit mehreren Rückgabewerten

[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;