Delphi 函数或过程 返回多个值

Delphi 函数或过程 返回多个值

一、使用记录 record 、数组 array 等数据类型

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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 引用参数。示例代码如下：

?

1 2 3 4 5 6 7 8 9 10 11 12

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