为什么属性OldCreateOrder会不断恢复正常?

时间:2018-04-18 21:29:10

标签: delphi

我宣布:

Unit BaseGuardian

TBaseGuardianService = class(TService)
public
end;

implementation

{$R *.dfm}

和dfm的代码:

object BaseGuardianService: TBaseGuardianService
  OldCreateOrder = False
  DisplayName = 'BaseGuardian'
end

然后我定义了这个类:

unit Guardian
TGuardianService = class(TBaseGuardianService )
public
end;

implementation

{$R *.dfm}

和dfm的代码:

inherited GuardianService: TGuardianService
  DisplayName = 'Guardian'
end

随时我打开Guardian.pas单位我看到OldCreateOrder设置为true,无论我做什么,设置为false,保存关闭单位并重新打开它我总是再次看到它是的:(

这是一个错误吗?我该怎么办?

我可以在delphi的代码源中看到这个

procedure TDataModule.ReadState(Reader: TReader);
begin
  FOldCreateOrder := not ModuleIsCPP;
  inherited ReadState(Reader);
end;

不知道它是什么意思......

0 个答案:

没有答案