delhpi 对基类变量的引用
一.建立了一个BaseForm以便后面的相同功能的窗体可以继承

//基类窗体节录如下
......
private
{ Private declarations }

public
{ Public declarations }

end;

var
Baseform: TBaseform;

implementation

uses xxx;

var
ok{权限} : Boolean; {判断权限}

{$R *.DFM}

......

二.想实现的功能:
在继承Baseform后,希望能知道ok的值,而且能改变ok的值

type
Form1 = class(TBaseform)
......
private
{ Private declarations }
procedure GetOk;

public
{ Public declarations }

end;

var
Form1: TForm1 ;

implementation


{$R *.DFM}

procedure TForm1.GetOk;
begin
if ok then ok := False;
end;

用这样的办法,delpi会提示 ok 是一个不知道的变量.

三. 问题
1.请问上述的方法问题出在那里,是不是不能这样用?
2.请问要实现在子类中得到基类的变量值,如何实现?改变基类变量的值又应如何做?

谢谢各高手大侠出手相助.




[解决办法]

Delphi(Pascal) code

一.建立了一个BaseForm以便后面的相同功能的窗体可以继承 //基类窗体节录如下 ......   private     { Private declarations }   public     { Public declarations }   end; var   Baseform: TBaseform;   ok{权限} : Boolean;  [color=#FF0000]{在这里定义,其它单元可以访问}[/color]implementation uses xxx; var   //ok{权限} : Boolean;    [color=#FF0000] {不能定义在这个地方,其它单元不能访问} [/color]{$R *.DFM} ......