Function mit mehreren Rückgabewerten

[Meflin]

Ich gehe mal davon aus das sollte:

Zitat von SyntaxXx:

Code:

function TForm1.MoreResults(var value2 : integer): integer;
begin
Result := 1;
value2 := 2;
end;

heißen, aber...

Schlimmer gehts nimmer! Entweder man schreibt sich eine Prozedur und hat Seiteneffekte. Oder man schreibt sich eine Funktion. Aber die Vermischung von beidem ist einfach... siehe oben.