函数只能返回一个值。 用什么方法可以返回两个值

Question

如题.不用全局变量。

Answer 1

使用记录，或者类
type
  TRecMy = record
    str1,
    str2: string;
  end;
function GetInfo(...): TRecMy;
使用类与之类型；
或者使用过程，用var实现
procedure GetInfo(...; var str1, str2: string);

Answer 2

还可以使用类，这个类中包含多少参数都可以。只不过是用xiaocha(小查)的方法比较简单。

Answer 3

TMyArray:array[1..2] OF OleVarient;
function GetInfo(...): TMyArray;

Answer 4

Procedure Tdm.PU_Getdh(id,TableName:string;Var GetDh,Getdate:string);
 Begin
 end;

Answer 5

function AFun(var A, B: Integer):boolean;A,B传入，运行后A,B传出

Answer 6

procedure procName(Constr Instr1,Instr2: String; Var OutStr1,OutStr2:String);
用前面两参数传值进去，用后面两个参数传值出来

Answer 7

1.
TMyArray:array[1..2] OF OleVarient;
function GetInfo(...): TMyArray;2.也可用变参传值；