如果我的对象中的某个属性未设置,我希望能够创建编译器错误/警告。假设我有以下类(class):
interface
type
TBarkevent = procedure (Bark : String) of object;
TDog = class
private
FOnBark : TBarkevent;
procedure SetBark(const Value: TBarkevent);
function GetBark: TBarkEvent;
public
procedure Bark;
property OnBark : TBarkEvent read GetBark write SetBark;
constructor Create;
end;
implementation
{ TDog }
procedure TDog.Bark;
begin
if Assigned(OnBark) then
OnBark('Woof!')
end;
constructor TDog.Create;
begin
end;
function TDog.GetBark: TBarkEvent;
begin
Result := FOnBark;
end;
procedure TDog.SetBark(const Value: TBarkevent);
begin
FOnBark := Value;
end;
我在另一个单元中使用了 TDog
类,如下所示:
var
Dog : TDog;
begin
Dog := TDog.Create;
Dog.OnBark := DogBark;
Dog.Bark;
现在,一旦调用 Bark()
过程,就会触发 OnBark
事件。
我的问题:
我是否可以强制指定 OnBark
属性,以便在未设置事件时发出编译器错误/警告? p>
最佳答案
将您的类定义为:
TDog = class
private
FOnBark : TBarkevent;
procedure SetBark(const Value: TBarkevent);
function GetBark: TBarkEvent;
public
procedure Bark;
property OnBark : TBarkEvent read GetBark write SetBark;
constructor Create(Bark : TBarkEvent);
end;
这样,您就无法在不指定事件的情况下实例化 TDog
对象。如果您尝试,您将收到编译器错误。
关于delphi - 如果未设置属性,则生成编译器错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39473188/