function mit zwei Rückgabewerten?

[---Bernhard---]

Hi!

Muss kurz was richtig stellen

Zitat von Neutral General:

1. Function gibt ein Record zurück

Delphi-Quellcode:

ABC = record
 A: String
 B: Integer;
 C: Boolean;
end;

function GetaABC: ABC;
begin
 ABC.A := 'Hallo';
 ABC.B := 22;
 ABC.C := true;
end;

Du musst 'result' verwenden:

Delphi-Quellcode:

ABC = record
  A: String
  B: Integer;
  C: Boolean;
end;

function GetABC: ABC;
begin
  result.A := 'Hallo';
  result.B := 22;
  result.C := true;
end;

Und dann hätte ich noch nen kleinen Vorschlag um das Zwischenspeichern des Records zu vermeiden, nämlich die Verwendung von "with .. do .." :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with GetABC do
  begin
    showmessage(A);
    showmessage(IntToStr(B));
    showmessage(BoolToStr(C, true));
  end;
end;

edit: ups, der with do Vorschlag hatte ja schon jemand gepostet