麻烦问一下Delphi中怎么定义静态变量?就像C/c++/java中static一样的作用 ( 积分: 20 )

A

amwyga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #1

麻烦问一下Delphi中怎么定义静态变量?就像C/c++/java中static一样的作用.我知道方法/函数可以用class procedure或class function ，但是变量呢?还有，在过程/函数中的"static"变量怎么定义呢？谢了

 

A

amwyga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #2

麻烦问一下Delphi中怎么定义静态变量?就像C/c++/java中static一样的作用.我知道方法/函数可以用class procedure或class function ，但是变量呢?还有，在过程/函数中的"static"变量怎么定义呢？谢了

 

A

amwyga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #3

如果pascal中没有这样的语法，那怎么样实现类似的功能呢?

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #4

可以这样定义
procedure abc;
{$ J+}
const
A = 100;
{$ J-}
begin
A := A + 1;
ShowMEssage(IntToStr(A));
end;

 

N

NeutronDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #5

呵呵,透露一下,在Delphi2006中就有了.
名称为类属性
声明语法为:class var
同时Delphi2006还支持了操作符的重载.
你可以试一试哦.

 

H

hzjone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #6

的确是没有　Static 的概念，但也不是没法实现，
在Delphi 中 有一个{$J+}.... {$J-}的编译指示，能修改Const,与Static有一样的性质
如:
{$J+}
procedure test
const
abc=10;
begin
abc:=inc(abc);
showmessage(inttostr(abc));
end;

 

L

lingsg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #7

上楼的回答有误，只有类型常量能够修改，例子如下：
{$J+}
procedure test;
const
abc: Integer =10;
begin
inc(abc);
showmessage(inttostr(abc));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test;
end;

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #8

java聲明變量：
String s="";
int i=12;

delphi聲明變量：
var
s:string;
i:integer;