Function mit mehreren Rückgabewerten

[hoika]

Hallo,

du hast wohl auch eine Form-Variable value2.

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var
  iResult: Integer;
  iValue2: Integer;
begin
  iResult:= MoreResults(iValue2);
  showmessage(IntToStr(iResult));
  showmessage(IntToStr(iValue2));
end;

Und ja, dein Code in der IDE war anders, als du ihn hier gezeigt hast.


Heiko