System.Assert 断言

为什么80%的码农都做不了架构师？>>>   

var
  List: TStringList;

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

 
 
 
 
 

 

 

  

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

---

转载于:https://my.oschina.net/hermer/blog/320571