Exception - capturando mensagem de erro no try

Top  Previous  Next

// capturando mensagem de erro no try

 

  try

    Caption := IntToStr( StrToInt(Button1.Caption ));

  except

    on E: Exception do // gerenerics

      ShowMessage( 'O erro foi: '#13 + E.Message );

  end;