找到 var Form1:TForm 这一行,在他后面定义:
var Form1:TForm1;
i:integer;
在 Form1Create 事件中初始化就可以了:
procedure TForm1.Form1Create(Sender:TObject);
begin
i:=10;
.....
end;
var Form1:TForm1;
i:integer;
在 Form1Create 事件中初始化就可以了:
procedure TForm1.Form1Create(Sender:TObject);
begin
i:=10;
.....
end;
解决方案 »
- 请教:a做客户端向b请求连接,如何实现b监听到以后自动做客户端向a也做一个连接?
- ¥¥¥¥¥¥¥¥揭开华为神秘面纱---谨以此献给即将走向华为或意欲洞穿华为的同胞¥¥¥¥¥¥¥¥
- 关于外挂的一些技术问题
- 請問如何使用DBGridEh中的多欄顯示
- 怎么将数据库中的字段项动态的添加到COMBOX里面去。(我用的是DB2数据库)
- 怎样用TTable创建带关键字的数据库?
- idpop3收信件问题,高手请进!!在线等待,马上给分!!
- 哪位兄弟能帮帮俺?
- dephi又没有直方图、饼状图这样的报表形式阿,怎样用?
- 求救:为何在调用时总弹出SQL的登录对话框?
- 安装程序中如何打包access97?
- 怎样判断Webbrowser能否GoBack,Goforward?
变量在声名时 var i:integer=1; 也可直接给值.