delphi函数返回多个值的应用

方法1：

function test(var a,b,c:integer):integer;
begin

end;

方法2：

type
    info = record
       name:string;
       age : integer;     
end;

function test():info;
var
   myinfo : info; 
begin
    myinfo.name := '张三';
    myinfo.age := 18;
    result := myinfo; 
end;

应用：

var
    myinfo : info;  
begin
    myinfo := test();
    showmessage(myinfo.name);
end;