一个变量初始化的问题！(20分)

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #1

我知道，delphi可以自动对变量进行初始化。
但是这不包括局部变量的呵
问题是：
我在一个Timer的timer事件里面要用一个integer变量来计数，以来统计timer
触发了几次。但，自然不能在timer事件里面初始化变量了，不初始化又会出问题的呵。
这样我该如何解决呢？在那里面声明？

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #2

在窗体创建时初始化

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #3

procedure TimerOnTimer(Sender: TObject);
const
Count: Integer = 0;
begin
Inc(Count);
...
end;

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #4

private
I:Integer;

在窗体ONCREATE事件初始化:
I:=0;

 

I

iamfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #5

声明一个全局的INTEGER变量，全局变量系统会自动赋初值给它，INTEGER就赋0，STRING就
赋空字符串：)

 

H

hwchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #6

这样的问题也问

 

Z

zv2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #7

把分给 LeeChange 吧！

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #8

LeeChange的象不可以吧，局部变量是不可以在声明的时候赋初值的

对其它的声明为全局变量是可以呵，只不过我不想这样解决，太浪费资源了吧。

我想在局部用完就释放了。

有没有什么解决方法或者是不能这样用，只能声明为全局变量？

 

D

dedman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #9

用ttimer自己的tag.
procedure TimerTimer(Sender: TObject);
begin
timer1.tag := timer1.tag +1;
end;

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #10

dedman的方法比较好。

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-30

• #11

但问题当timer事件刚开始的时候

变量要初始化为0呵？

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-30

• #12

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer1.Tag:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag+1;
label1.caption:=inttostr(Timer1.Tag);
end;

 

H

hp_wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-30

• #13

同意LeeChange

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-30

• #14

谢谢小人物，觉得你的方案是可行的

不过，LeeChange的可以么？

用const 而不用var

记得在《delphi技术手册》里看到相应的。

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-01

• #15

查到了。、
const
Count: Integer = 0;
声明的是一个类型化常量。

声明一个常量的类型时，delphi为该常量留出内存并把它作为一个变量，可以分配一个
新的值给这个常量并保持它。在C++中这个实体被称为静态变量。

不过这是维持向后兼容性的

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #16

多人接受答案了。