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　　更新时间：