学步园

var
  List: TStringList;

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

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

---