随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


var
  List: TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  Assert(Assigned(List)); //第二个参数默认 'Assertion failure'
  Assert(Assigned(List), 'List 对象没有建立');
end;


可用 {$ASSERTIONS OFF/ON} 决定是否启用 Assert; 默认只用于 Debug 版本.
posted on 2009-12-10 11:55  万一  阅读(...)  评论(...编辑  收藏