我宣布:
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;
不知道它是什么意思......