Function mit mehreren Rückgabewerten

[Sir Rufo]

Zitat von SyntaxXx:

Hmmm habs jetzt so:

Code:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(MoreResults);
showmessage(IntToStr(MoreResults(Value2)));
end;

Jedoch ist die zweite Messagebox immer leer

Und nach über 100 Beiträgen sollte man auch die Delphi-Tags kennen

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(MoreResults);
showmessage(IntToStr(MoreResults(Value2)));
end;

[Sir Rufo]

Um aber auch was konstruktives einzuwerfen hätte ich noch folgendes:

Delphi-Quellcode:

type
  TMoreResults = record
    a,b : integer;
    function Show : string;
  end;

function TMoreResults.Show : string;
begin
  Result := Format( 'Das Ergebnis ist %d und %d', [ a, b ] );
end;

function MoreResults( ParameterA, ParameterB : integer ) : TMoreResults;
  begin
    Result.a := ParameterA;
    Result.b := ParameterB;
  end;

procedure TForm1.Button1Click( Sender : TObject );
  begin
    ShowMessage( MoreResults( 1, 2 ).Show );
  end;

es geht sogar noch schöner

Delphi-Quellcode:

type
  TMoreResults = record
    a,b : integer;
    class operator implicit( const mr : TMoreResults ) : string;
  end;

class operator TMoreResults.implicit( const mr : TMoreResults ) : string;
begin
  Result := Format( 'Das Ergebnis ist %d und %d', [ mr.a, mr.b ] );
end;

function MoreResults( ParameterA, ParameterB : integer ) : TMoreResults;
  begin
    Result.a := ParameterA;
    Result.b := ParameterB;
  end;

procedure TForm1.Button1Click( Sender : TObject );
  begin
    ShowMessage( MoreResults( 1, 2 ) );
  end;

[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