Delphi Try Except 实例

  try
  except
    raise Exception.Create('123');
    exit;
  end;

  try
  except
    ShowMessage(Exception(ExceptObject).Message);
    exit;
  end;

  try
  except on e:Exception do
    begin
    ShowMessage(E.Message);
    exit;
    end;
  end;