Question

我之前声明了很多公共变量，但在Delphi-XE3中是第一个。

我声明公共var好，但不能在其他表格上使用它，但我不知道为什么？

我的主要联合代码：

unit uMian;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    btnLoad: TButton;
    btnShow: TButton;
    btnEaxit: TButton;
    lvStudent: TListView;
    btnAdd: TButton;
    procedure btnEaxitClick(Sender: TObject);
    procedure btnLoadClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations } 
  var
    IsOpen : Boolean ;

  public
    { Public declarations }
    var
      myvar : Integer ;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses uAdd;


function AppDir () : string ;
begin
  Result := ExtractFilePath(Application.ExeName);
end;

procedure TForm1.btnAddClick(Sender: TObject);
begin
  if IsOpen then
  frmAdd.ShowModal ;
end;

procedure TForm1.btnEaxitClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if IsOpen then
  //CloseFile(DataFile);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IsOpen := False ;
end;

....

end.

这没有问题。

但是当我在其他形式使用FrmAdd时，我有问题：

unit uAdd;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons,
  Vcl.Samples.Spin, Vcl.ExtCtrls;

type
  TfrmAdd = class(TForm)
    lbledtName: TLabeledEdit;
    lbledtAvg: TLabeledEdit;
    seAge: TSpinEdit;
    lbleId: TLabeledEdit;
    btnCansek: TBitBtn;
    btnAdd: TBitBtn;
    procedure btnAddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdd: TfrmAdd;

implementation

{$R *.dfm}

uses uMian;

procedure TfrmAdd.btnAddClick(Sender: TObject);

begin
  // problem in below 
  ShowMessage(IntToStr(TForm1.myvar)) ;
end;

end.

编译器错误： [dcc32错误] uAdd.pas（问题行）：E2096预期的方法标识符

注意：Cnpack在变量列表中显示myvar但不显示Rad Studio自动完成。

Answer 1

myvar是对象的公共变量，即类TForm1的实例。因此，您需要指定您所指的实例。但是当你编写TForm1.myvar时，你不指定任何实例，只指定类。

这就像知道每个人都有一种被称为“性”的属性，然后你会问，“人类的性别是什么？”。 [哪个人类？]

解决方案是改为编写someform.myvar，其中someform是TForm1的实例。例如，Form1.myvar，很可能是您想要的。请注意，您在var Form1: TForm1中找到uMain。这是声明表单变量的行：您有一个指向类TForm1的对象的变量。

所以，相反，你问，“你的朋友史密斯的性别是什么？”

使用时编译错误以其他形式声明公共变量

1 个答案: