Question

delphi 调用有外部参数的function或procedure时，string类型的参数值为什么传不进去呢

procedure TForm1.Button1Click(Sender: TObject);
var
num : Integer;
snum : string;
begin
num := 2;
snum := 'ABC';
MyFunction(num, snum);
ShowMessage('procedure：' + IntToStr(num) + snum);
end;

procedure TForm1.MyFunction(out num: Integer; out snum: string);
begin
num := num * 2;
snum := snum + 'CBA';
end;

为什么弹出的snum的值是‘CBA’ 却不是‘ABCCBA’呢？怎么才能把string的值传进去啊？
我知道var可以，var是在传递参数的地址。但我是想知道out为什么不行呢。Out不就是以返回值的形式进行参数返回吗？而且明明Integer类型的可以，可到了string为什么就不行了呢？

Answer 1

你将 MyFunction(out num: Integer; out snum: string); 改为
MyFunction(out num: Integer; var snum: string);就可以了，

你看看out 和 var的区别哦，使用out貌似只能传递参数不能引用自身

你如果加个变量最后将结果使用snum传递就可以了