System.Assert 断言

var

  List: TStringList;



procedure TForm1.FormCreate(Sender: TObject);

begin

//  Assert(Assigned(List)); //第二个参数默认 'Assertion failure'

  Assert(Assigned(List), 'List 对象没有建立');

end;


 
   

可用 {$ASSERTIONS OFF/ON} 决定是否启用 Assert; 默认只用于 Debug 版本.

---