1

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

我声明 public 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 Error] uAdd.pas(problem line): E2096 Method identifier expected

注意:Cnpackmyvar在变量列表中显示我,但 Rad Studio Auto-Complete 没有。

4

1 回答 1

10

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

这就像知道每个人都有一种被称为“性”的属性,然后你问,“人类的性别是什么?”。【哪个人类?】

解决方案是改写someform.myvar, wheresomeform是 a 的实例TForm1。例如,Form1.myvar, 很可能是您想要的。请注意,您var Form1: TForm1uMain. 这是声明表单变量的行:您有一个指向类对象的变量TForm1

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

于 2013-02-15T11:34:11.933 回答