//例1:
begin
  raise Exception.Create('抛出异常');
end;

//例2: begin raise Exception.CreateFmt('%s %d', ['错误代码:', 999]); end;
//例3: var exc: Exception; begin exc := Exception.Create('发现异常'); raise exc; end;
posted on 2008-03-27 23:26  万一  阅读(10178)  评论(2编辑  收藏  举报