Function mit mehreren Rückgabewerten

[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