Function mit mehreren Rückgabewerten

[SyntaxXx]

Hallo Leute, heute habe ich mal wieder eine Frage:

Ich habe nun eine eigene function geschriebenm, inder ich aber mehrere Rückgabewerte bekomme.
Jetzt ist die Frage, wie ich auf diese zugreifen kann, da ja Result nur einen Wert wiedergibt?

Um es ein wenig zu vereinfachen hier ein kleines Beispiel (Nur gerade aus den kopf geschrieben)

Code:

function MoreResults:string;
begin
a := 1;
b := 2;
end;

Wie kann ich nun in einer anderen Function auf a und b zugreifen?

Wie gesagt, mit Result bekomme ich ja nur einen Wert zurück.

Ich hoffe ihr könnt mir helfen

[Klaus01]

Hallo,

Du könntest als Result ein Record verwenden.

Grüße
Klaus

[WM_CLOSE]

entweder du deklarierst einen Record

Delphi-Quellcode:

type
  TDeinRecord=record
    x:Integer;
    y:Integer;
  end;

oder du übergibst der function Var-Parameter

Delphi-Quellcode:

function DeineFuction(var x:Integer; var y:Integer)
begin
  x:=1;
  y:=2;
end;

Dabei musst du die variablen aus der aufrufenden funktion übergeben:
DeineFunction(ergebnisx,ergebnisy);

[Sir Rufo]

Zitat von WM_CLOSE:

oder du übergibst der function Var-Parameter

Delphi-Quellcode:

function DeineFuction(var x:Integer; var y:Integer)
begin
  x:=1;
  y:=2;
end;

Dabei musst du die variablen aus der aufrufenden funktion übergeben:
DeineFunction(ergebnisx,ergebnisy);

Eine Function muss immer einen Rückgabewert haben, also wird das so nicht gehen

Delphi-Quellcode:

procedure DeineFuction(var x:Integer; var y:Integer);
begin
  x:=1;
  y:=2;
end;

[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

[Luckie]

Das dürfte gar nicht kompilieren.

[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

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