Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600188 Wed, 13 Jun 2007 09:45:35 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600188 Демо
и у тебя это работает??
у меня то же самое не сработало!!!!!!!

Добавлено
бдин ИДИОТ!!! вопрос решен!! вернее я все правильно делал!!! просто у меня был дебаг модус включен... а потом я не должлался своего окна :(
все работает правильно

Добавлено
на этом вопрос решен]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600184 Wed, 13 Jun 2007 09:43:53 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600184
    procedure TForm1.Button1Click(Sender: TObject);
    var
      n,m: Integer;
    begin
      n := 18;
      m := 6;
      try
        n := n div m;
        if n=2 then Raise Exception.Create('Error Data2');
        if n=3 then Raise Exception.Create('Error Data3');
      except
        on E: Exception do ShowMessage(E.Message);
      end;
    end;
]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600177 Wed, 13 Jun 2007 09:40:32 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600177 Цитата Сан Иваныч @
А в событии BeforePost() нельзя проверить? И если найдены ошибки, то Abort() и никаких проблем!

нет тут процедура связываюшая около 10 таблиц когда insert, когда edit. сильно много проверять придется.
Ладно, если ничего такого нет, придется переписывать процедуру, или 3 раза писать rollback и лог..... :angry:]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600175 Wed, 13 Jun 2007 09:40:04 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600175
      try
        StrToInt(str);
      except
        ShowMessage('Неверное значение .....');
        WriteToLog('ошибка в типе данных для поля XXX');
        Abort();
      end;
      // и так для всех проблемных полей
]]> Сан Иваныч Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600167 Wed, 13 Jun 2007 09:36:28 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600167 Сан Иваныч
но ведь это не красиво, и если у меня несколько таких проверок (в моем случае 3) то хочется в логе видеть какая именно проверка пошла боком...]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600163 Wed, 13 Jun 2007 09:33:48 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600163 Сан Иваныч Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600160 Wed, 13 Jun 2007 09:32:41 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600160 есть общий try ... except end
в нем транзакция, с rollback в except end. и записью в лог вида ошибки. Выход из масива, неактивная таблица и т.д. эти исключения try найдет сам, для того он и создан. но мне надо проверить на едентичность данных, и переписать таблицу только в определенном случае. Теоретически этой ошибки произойти не может, но на практике, один раз произошло и данные записались не верно :angry: потому и хочу, в этом случае выйти из процедуры с возвратом всего что надо....
не писать же после каждой проверки свой rollback . А в лог должно писаться почему вызвана ошибка]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600147 Wed, 13 Jun 2007 09:25:11 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600147 vladimir74, то, что ты предлагаешь, можно написать и без исключений. Например, при преобразовании StrToInt проверяешь строку на входе на наличие в ней нечисловых символов, и если таковые будут найдены - пиши, что данные плохие.]]> Сан Иваныч Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600130 Wed, 13 Jun 2007 09:17:13 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600130 Smike
try
что то пишем, потом проверяем и если не нравится то
raise Exception.Create('очень плохие данны мы не пишем ');
except on E: Exception do begin
ShowMessage('Ошибка! '+E.Message);
end;
end;
не работает... :angry:

Добавлено
Цитата Сан Иваныч @
Блин, тебе объясняют, что try...except сам отловит исключение. Без всяких if. Засунь в try мой пример из второго поста и посмотри, что будет

блин да я же говорю, что нет в этот момент никаких исключений!! не буду же я на ноль делить, чтоб его вызвать или сравнивать строку с числом!!! глупо это]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600127 Wed, 13 Jun 2007 09:16:51 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600127 Сан Иваныч Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600121 Wed, 13 Jun 2007 09:11:59 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600121 if это моя проверка данных!!!! т.е. если мне данные не понравились, должна вызваться ошибка!!]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600107 Wed, 13 Jun 2007 09:05:21 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600107 Цитата vladimir74 @
vladimir74

Ты наверное не понимаешь сам принцип работы try... except... Никаких if не надо! Даже если у тебя в try несколько действий, они будут выполняться по очереди до тех пор, пока не возникнет ошибка. Если ошибка возникнет, программа сама перейдет в except... Тебя это что ли интересует?? А уже обрабатывать ошибку (и записывать ее в лог) - это твои заботы! Чтобы разобраться по какой ошибке приложение перешло в except, можешь в try использовать какой-нибудь флаг, который будет тебе однозначно давать понять, на каком действии произошел сбой.]]> New Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600105 Wed, 13 Jun 2007 09:04:50 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600105
    raise Exception.Create;
]]> Smike Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600084 Wed, 13 Jun 2007 09:00:45 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600084 Сан Иваныч Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600050 Wed, 13 Jun 2007 08:51:16 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600050
    try
      работа
      if неверные данные
        !перейти в except с ошибкой!
    except
      log(записать ошибку)
    end;
]]> vladimir74 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600038 Wed, 13 Jun 2007 08:46:43 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600038 StrToInt('bla-bla-bla'); :yes:]]> Сан Иваныч Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600035 Wed, 13 Jun 2007 08:45:04 +0000 как програмно вызвать except https://forum.sources.ru/index.php?showtopic=190525&view=findpost&p=1600035 vladimir74 Delphi: Общие вопросы