这行代码在CB中该怎么写？

[Sachow]

procedure TMenu.DoChange(Source: TMenuItem; Rebuild: Boolean);
begin
if Assigned(FOnChange) then FOnChange(Self, Source, Rebuild); //这一行
end;

FOnChange: TMenuChangeEvent;

核心就是问"if Assigned(FOnChange)"这一句该怎么写？
是否能直接写："if (FOnChange) "？

[ant4psu]

if( FOnChange == NULL)...

[Sachow]

我又仔细看了一个Delphi中关于Assigned函数的帮助文件，觉得应该可以用
if (FOnChange)来替换（等同于if (FOnChange != NULL)），它的什么是判断
一个指针是否被指向了某个对象（变量、函数等）

[Sephil]

if Assigned(FOnChange) then FOnChange(Self, Source, Rebuild);

if(FOnChange != NULL) then FOnCHange(this, Source, Rebuild);

[yhec]

会不会是!IsNull( )

[Behard]

我不会 Delphi，你的代码是什么意思？

[HEROIN]

if (FOnChange) FOnChange(Self, Source, Rebuild);

[HEROIN]

if (FOnChange) FOnChange(this, Source, Rebuild);

[HEROIN]

if (FOnChange) FOnChange(this, Source, Rebuild);

[Sephil]

SORRY
这段时间DELPHI用多了
习惯了。。。
应该是
if(FOnChange != NULL)
{
FOnCHange(this, Source, Rebuild);
}