请问 制定意一个函数 如何返回两个以上的值?

Question

请问 制定意一个函数 如何返回两个以上的值?

Answer 1

不行，不过你可以定义一个结构或者对象用来返回
t1=record
  i:integer;
  s:string;
  end;
function a:t1
这样可以让a返回一个i和s

Answer 2

还有一种方法定义函数时把要返回的变量定义成这样：
procedure Test(var a,b: String);  //意思那个var
begin
  a := '1';
  b := '2';
end;使用时  Test(TempStr1, TempStr2);就可返回处理后的 TempStr1和TempStr2的值过程、函数一样

Answer 3

firetoucher(风焱)  方法不错
不过一般都用指针作参数即可，如firetoucher(风焱)  或
procedure Test(var a,b: pchar);