5,392
社区成员
发帖
与我相关
我的任务
分享请问引用型参数如何定义？
procedure TForm1.test(str:string); <--------这里如何定义成引用类型的
begin
str:='123';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
v1:string;
begin
test(v1);
Edit1.Text:=v1;
end;
begin
str:='123';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
v1:string;
begin
test(v1);
Edit1.Text:=v1;
end;
...全文
请发表友善的回复…
发表回复
firstshine 2003-09-08
- 打赏
- 举报
procedure TForm1.test(var str:string);
begin
str:='123';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
v1:string;
begin
test(v1);
Edit1.Text:=v1;
end;
begin
str:='123';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
v1:string;
begin
test(v1);
Edit1.Text:=v1;
end;
malebird 2003-09-08
- 打赏
- 举报
like this:
procedure test(var str:string);
procedure test(var str:string);
