为什么返回值类型为字符串的函数返回值为空
函数定义如下
function LSSD(bianhao,biaohao:integer):string;
var
s: string;
begin
s:=inttostr(bianhao)+'|'+inttostr(biaohao)+'|';
Result:=s;
end;
在窗体中调用此函数
VAR A :STRING;
A=LSSD(100,400);
执行完毕后 A的值为空，是怎么回事，
[解决办法]
A=LSSD(100,400);
改成
A:=LSSD(100,400);
[解决办法]
你的写法没啥问题, 除了你的语法错了, A:= 但是如果你写A=的话应该编译不通过, 所以是不是你看错了, 或其他的问题
[解决办法]
function LSSD(bianhao,biaohao:integer):string;
var
s: string;
begin
s:=inttostr(bianhao)+'|'+inttostr(biaohao)+'|';
Result:=s;
end;
procedure TForm1.FormCreate(Sender: TObject);
var a : string;
begin
a := LSSD(400, 1000);
ShowMessage(A);
end;
帮你测了。没问题。肯定是其他地方有问题。跟踪一下
