Delphi 函數或過程 返回多個值

Delphi 函數或過程 返回多個值

一、使用記錄 record 、數組 array 等數據類型

Type
    TmData = Record 先定義一個Record有2個返回值
    Data1: string;
    Data2: string;
end;
 
function Tform1.Myfunction(parm: string): TMdata;
var MData1: TMdata;
begin
    MData1.Data1:= '數據1';
    MData1.Data2:= '數據2:';
    result:= MData1;      //傳回記錄record
end;

procedure Tform1.MyProc(var parm: TMdata);
begin
    parm.Data1:= '數據1';
    parm.Data2:= '數據2';
end;

　　

二、參數使用 var 引用參數。示例代碼如下：

function abc(var aa,bb:double):string;//返回2個double值,1個string值
begin
  aa:=5678;
  bb:=1234;
  result:='你好！滔Roy';
end;

procedure abc(var aa,bb:double)//返回2個double值
begin
  aa:=5678;
  bb:=1234;
end;

　　

　

創建時間：2020.09.17　　更新時間：