一个处理异常的问题.

Question

if 未付金额<0 then raise eabort.create('')
保你好用

Answer 1

to Focus(老鱼):
       eabort.create('')我不知道什么意思?

Answer 2

type  ETrigError = class(EMathError);function Tan(X: Extended): Extended;begin
  try
    Result := Sin(X) / Cos(X);
  except
    on EMathError do
      raise ETrigError.Create('Invalid argument to Tan');
  end;
end;
//from delphi help

Answer 3

//oruses FileCtrl;procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');
end;