Question

delphi里function怎么返回多个值

Answer 1

delphi 里 function 返回多个值，可以考虑以下方法：

一、函数的返回值使用 记录 record 、数组 array 等数据类型。 示例代码如下：

Type
    TmyData = Record 先定义一个Record有三个返回值
    Data1: string;
    Data2: string;
    Data3: string;
end;

//定义 function的代码
function Tform1.Myfunction(parm: string): TMydata;
var MyData1: TMydata;
begin
    MyData1.Data1:= 'This is Data1:';
    MyData1.Data2:= 'This is Data2:';
    MyData1.Data3:= 'This is Data3:';
    result:= MyData1;      //传回为一个记录record
end;

二、函数的参数使用 var 引用参数。示例代码如下：

function abc(var aa,bb,cc:double):string;//返回3个double值,1个string值
var
  ret: IWantData;
begin
  aa:=1.234;
  bb:=2.021;
  cc:=3.333;
  result:='';
end;