如何在Delphi中实现C语言中静态变量的功能

最新推荐文章于 2016-03-30 16:48:03 发布

yewenlin

最新推荐文章于 2016-03-30 16:48:03 发布

阅读量1.9k

点赞数

分类专栏： delphi程序开发文章标签： delphi 语言 c integer pascal 编译器

delphi程序开发专栏收录该内容

12 篇文章 0 订阅

订阅专栏

如何在Delphi中实现C语言中静态变量的功能

DELPHI编程 2007-09-02 14:56:01 阅读28 评论0 字号：大中小订阅

如何在Delphi中实现C语言中静态变量的功能

在函数（function）或过程（procedure）内定义的变量（variable）为局部变量，存放在栈(stack)内，当函数或过程结束时，里面所保存的内容都会随着栈的释放而消失。而在C语言中在定义局部变量时可以用static来定义静态变量，该变量在整个程序的运行中的值一直可以保留，可以为程序实现特殊的功能。但Delphi却没有这一功能，如果为实现这一功能用全局变量显然会破坏程序的封装性，是不可取的。其实这一功能在Delphi中也是可以通过const定义常量的方法来变通实现这一功能。常量本来是不允许在程序中进行修改的，如果想要修改它们的值，有以下两种方法可以实现：

一、通过{$J}的开关来控制编译器是否允许程序修改常量

根据Delphi的帮助文档描述：$J指令控制是否允许定义为常量的值是否允许被修改。在{$J+}状态，定义的常量可以被修改，常量在此时相当于一个可以被初始化数值的变量。在{$J-}状态定义的常量是真正的常量，任何尝试对常量的修改都会使编译器报错。具体示例如下：

{$J+}
procedure TForm1.Button1Click(Sender: TObject);
const i:integer=100;
begin
i:=i+100;
showmessage(inttostr(i));
end;
{$J-}

需要说明的是，早期的Delphi或PASCAL版本，常量都是可写的，相当于{$J+}状态，以前的源代码在使用可写常量需要重新编译时必须使用{$J+}进行编译。

二、通过指针来实现此功能

通常用Delphi来写程序很少会用到指针，其实Delphi的指针功能和C语言的指针功能一样的强大，此处不做过多讲述。如果想要修改常量的值的话，可以定义一个指针变量，使用指针指向此常量的地址，然后通过指针来修改常量。具体示例如下：

    procedure TForm1.Button1Click(Sender: TObject);
const i:integer=100;
  var p:PInteger;
begin
  p:=@i;
  P^:=p^+100;
  showmessage(inttostr(i));
end;