为什么a 不能把值传递给b？
function TForm1.atob(a, b: string):integer;
begin
b:=a;
result:=1;
end;

使用：
var s1,s2:stirng;
begin
s1:='nihao';
atob(s1,s2);
showmessage(s2);//为什么得不到正确的结果'nihao'?
end;

[解决办法]
atob(var a,b:string)
[解决办法]
function TForm1.atob(a: string; var b: string):integer;