原来D2007是可以支持类变量的，嘿嘿

今天一个偶然的机会翻D2007的vcL源码的时候，发现一个奇怪的声明

class var

RM_TaskbarCreated: DWORD;

这个class var就表示声明了一个类变量，相当于C#等的静态变量。于是用个新工程测试了一下，果然

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls;

type

TForm1 = class(TForm)

TrayIcon1: TTrayIcon;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

class var mm: integer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

ShowMessage(inttostr(mm));

end;

Initialization

Form1.mm := 3;

end.