function mit 2 ausgabewerten

[Harry M.]

Delphi-Quellcode:

type
  TMyResult = Record
   S: String;
   I: Integer;
   end;

function Calc(A, B: Integer): TMyResult;
begin
  Result.S := IntToStr(A + B);
  Result.I := A + B;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Temp: TMyResult;
begin
  Temp := Calc(1, 1);
  showmessage(Temp.S + ' / '+ IntToStr(temp.I));
end;