如何在delphi里使用静态变量（static）？

Question

 const str='my string';procedure showStr;
 begin
   showMessage(str);
 end;

Answer 1

PASCAL里肯定没有这东东，我学过，全局变量权当静态变量；
OBJECT PASCAL与DELPHI未看过，不知道有无这东东；

Answer 2

哦，是这样的啊，那你可以用Absolute声明一个变量的绝对地址就可以了！
例如：
var
  str:string;
  i:byte Absolute str;
上面声明的这种方式可靠，str这个变量可以不用，只做为i取地址用，
这样比用绝对地址(如：var i:byte Absolute $0040:0040)声明可靠。
   
看下面的：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function f:integer;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  xxx:integer;         取址用，实际不用implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
   xx:integer;
begin
   xx:=self.f;
   showmessage(inttostr(xx));
end;function TForm1.f: integer;
var
   i:integer absolute xxx;
begin
   inc(i);
   result:=i;end;end.

Answer 3

我看了，这不行，
看样子PASCAL的人没有享受使用静态变量的快感，
从C改DELPHI 的痛苦来了

Answer 4

hehe~~~~
i love you ! c && c++!

Answer 5

DELPHI高手们， 局部静态变量怎么实现？

Answer 6

{$J+}
const i:Integer=0;
{$J-}
这个100%行,别忘了给我加分.

Answer 7

Object Pascal中没有静态变量的概念。可以在单元中实现部分定义变量来解决这个问题。Object Pascal中也没有友员概念，不过，Object Pascal在同一个单元定义的类中是互相完全访问的，因此也是通过同上类似方法实现。

Answer 8

初始化可以在initialization中完成。另外，用C++的用不着取笑，Object Pascal中也有C++中实现不了的语法！

Answer 9

to: BCB在interface部分声明的变量就是全局的；在implementation部分声明的就是局部的。

Answer 10

to: wzs(兔子)　const i:integer=1这种定义是从Delphi 1.0中带入的，在后面的版本最好不要这么用。给没用过Object Pascal的解释一下，Object Pascal中常量分为两种，有类型和无类型的。无类型的于C++中类似，不能被赋值，有类型的是可以的。但是从Delphi 2.0开始，有个编译开关决定有类型常量是否可以被赋值。有类型常量例子：
const CIInteger: Integer = 0;
无类型常量例子：
const CIInteger          = 0;

Answer 11

to:GoodHope(好望角)　我在d5上运行通过.
这是例子:
procedure TForm1.BitBtn1Click(Sender: TObject);
{$j+}
const myvar:integer=0;
{$j-}
begin
    myvar:=myvar+1;
    showmessage(inttostr(myvar))
end;

Answer 12

楼上朋友的方法完全可行，和C中的Static变量完全一样，给他加分吧！！！

Answer 13

还是GoodHope(好望角)说得对：Object Pascal中常量分为两种，有类型和无类型的。无类型的于C++中类似，不能被赋值，有类型的是可以的。但是从Delphi 2.0开始，有个编译开关决定有类型常量是否可以被赋值。