[基础]外部变量声明时,同时初始化变量的写法,包括Record类型。

来源:互联网 发布:南通用友软件 编辑:程序博客网 时间:2024/06/07 05:48

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


  nInitCount: Integer = 0;


  V1: TLibModule = (
    Next: nil;
    Instance: 0;
    CodeInstance: 0;
    DataInstance: 0;
    ResInstance: 0;
    Reserved: 0);


implementation


{$R *.dfm}


var
  V2: TLibModule = (
    Next: nil;
    Instance: 0;
    CodeInstance: 0;
    DataInstance: 0;
    ResInstance: 0;
    Reserved: 0);


procedure TForm1.FormCreate(Sender: TObject);
begin
//
end;