public
cu:integer;//全局变量用于返回参数;
procedure pr1;
procedure pr2;implentmentprocedure TForm1.pr1;
begin
cu1:=1;
end;procedure Tform2.pr2;
var
c:integer;
begin
pr1;
c:=cu1; //c=1;
end;
cu:integer;//全局变量用于返回参数;
procedure pr1;
procedure pr2;implentmentprocedure TForm1.pr1;
begin
cu1:=1;
end;procedure Tform2.pr2;
var
c:integer;
begin
pr1;
c:=cu1; //c=1;
end;
解决方案 »
- delphi TServerSocket队列通信问题
- Delphi处理大数据量的增删查改
- 用程序修改文件名称
- 【求助】关于窗体的WindowState属性的超简单问题。
- 有些编程书籍有需要的可以下载
- 请教在自定义函数中同步调用TClientSocket的OnRead事件
- 关于Delphi7中编译出现的Unsafe type 、Unsafe code 信息,请大家进来讨论
- 如何知道TREEVIEW中某一个节点所处的层次?
- 一个关于在未安装delphi的计算机上运行delphi编写的程序的问题?
- 请问,如何将mdb数据库中的数据导入excel.
- 邮件正文为HTML格式问题:HTML页面中如果包含有图片等其他东东,怎么打包????
- 如果可以检测到一个文件夹下文件的变化?(100分)
var s:string;
begin
s:='11';
p2(s);
showmessage(s);//s为‘1122’,即s为p2返回的参数
end;procedure TForm1.p2(var s:string);
begin
s:=s+'22';
end;