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;  

  

delphi函数返回多个值的应用

上一篇:Windows7下搭建Django运行环境


下一篇:VB.NET,C#.NET调用Web Service,利用visual studio 的实现方法