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;

道可道，非常道；名可名，非常名。无名，天地之始，有名，万物之母。故常无欲，以观其妙，常有欲，以观其徼。此两者，同出而异名，同谓之玄，玄之又玄，众妙之门。

;