следующая тема »

[19 Июль 2025, 16:28:47]

Новости, реклама:

[19 Июль 2025, 16:28:47]

Новости, реклама:

[ТОИ-ТОИ Белсансист]

Есть ли в Delphi функция перехвата ошибок и пропуска их... (знаю что в VB есть функция on error resume next)

[coolasm]

Есть, и эта штука называется обработка исключений
http://pblog.ru/?p=89
http://www.bookresearch.ru/exceptionManagement.htm

[_SworD_]

Глянь здесь http://forum.grodno.net/YaBB.pl?num=1217794638.

[coolasm]

Глянь здесь http://forum.grodno.net/YaBB.pl?num=1217794638.

Нет, это не оброботка исключений, это скорее пример рекурсии

[Demik]

насколько я помню (давно в Делфи не работал) я так делал:

Try
  {Твой код всунь сюда}
exception
  {Сюда прога зайдет когда возникнет ошибка в коде между try и except}
  GetLastError(Переменная-номер ошибки, если надо);
  SetLastError(NoError);
end;

Вот и всего делов то

[Gloomy Fox]

Try
  {Твой код всунь сюда}
exception
  {Сюда прога зайдет когда возникнет ошибка в коде между try и except}
  GetLastError(Переменная-номер ошибки, если надо);
  SetLastError(NoError);
end;

Перемешал тут мухи с котлетами... Если уж использовать try...except, то и ошибки обрабатывать надо средствами языка а не Win32. Т.е. получается что-то вроде:
try
  {some code}
except
  on E: Exception do
    ShowMessage(E.ClassName+' raised exception: '+E.Message);
end;

[stan]

Хм... А юзать гугл не судьба? Вообще если вопросы такого уровня задаешь, то тебе сюда, ИМХО идеальный сайт по делфи. Вот развернутый ответ на твой вопрос.

[_SworD_]

to GlFox

Exception, например при работе с БД, не очень помогает, т.к. не полность есть реализация. Было время я его наверно весь перерыл (класс). Это я к тому, что без on E: Exception do можно иногда и обойтись. А иногда просто выбора нет тоon E: Exception do автоматически не расматривается.

[Demik]

Try
  {Твой код всунь сюда}
exception
  {Сюда прога зайдет когда возникнет ошибка в коде между try и except}
  GetLastError(Переменная-номер ошибки, если надо);
  SetLastError(NoError);
end;

Перемешал тут мухи с котлетами... Если уж использовать try...except, то и ошибки обрабатывать надо средствами языка а не Win32. Т.е. получается что-то вроде:
try
  {some code}
except
  on E: Exception do
    ShowMessage(E.ClassName+' raised exception: '+E.Message);
end;

я не перемешал мухи и котлеты. Вопрос не стоит об обработке исключений. человеку нужно пропуститьь ошибку, если она возникла. Чем конструкция плохая? А те знакома ситуация когда вылетела ошибка в проекте, а в исключении написано "No error"?

[Gloomy Fox]

Exception, например при работе с БД, не очень помогает, т.к. не полность есть реализация. Было время я его наверно весь перерыл (класс). Это я к тому, что без on E: Exception do можно иногда и обойтись. А иногда просто выбора нет тоon E: Exception do автоматически не расматривается.

Не совсем понял мысль, но как-нибудь отвечу. Если мне надо было отслеживать именно ошибки при работе с БД то я писал так:
try
  {some DB operations}
except
  on E: EIBError do sErrMsg:=E.Message;
end;
Как видно, здесь просто выщемляются эксцепшены от IBX, а на остальные плевать. Имеет смысл иногда отлавливать ошибки конкретного типа, чтобы внятно известить юзера, чего случилось, или записать в лог.

я не перемешал мухи и котлеты. Вопрос не стоит об обработке исключений. человеку нужно пропуститьь ошибку, если она возникла. Чем конструкция плохая? А те знакома ситуация когда вылетела ошибка в проекте, а в исключении написано "No error"?

Если ему плевать, что там за ошибка, то его может устроить и блок try...finally, а если уж смотреть, что за исключение, то функции GetLastError() SetLastError() мало чем помогут, поскольку они относятся к Win32 API и нифига толкового не покажут, если исключение возникло в компоненте по причинам не зависящим от операционки (типа "index out if bounds" или "not valid какое-то value"). Т.е. я имел ввиду, что использование этих функций может иметь смысл только при отлове ошибок во время работы с Win API.

[agent007]

Как реализовать такую чтуку: Есть edit1 и button1, так вот надо(делфи 6) чтобы при нажатии копки прога проверяла совпадает ли пароль, если да, то уже на другую форму... а если нет выход и всё!!?

[agent007]

Может наконец кто-нибудь поможет?

[VooDoo]

так а в чём проблема? тебе код нужен или объяснить как делать?

[agent007]

так а в чём проблема? тебе код нужен или объяснить как делать?

Лучше код, просто алгоритм я знаю, а как реализовать в delphi (6, тому что для 7 есть в сети урок)

[_SworD_]

так а в чём проблема? тебе код нужен или объяснить как делать?

Лучше код, просто алгоритм я знаю, а как реализовать в delphi (6, тому что для 7 есть в сети урок)

Чето не понял я вопроса. Че код перенести не можешь?

[agent007]

так а в чём проблема? тебе код нужен или объяснить как делать?

Лучше код, просто алгоритм я знаю, а как реализовать в delphi (6, тому что для 7 есть в сети урок)

Чето не понял я вопроса. Че код перенести не можешь?

Какой код? Чета не видел я где это написано как решить мою задачу без Password Dialog?

[VooDoo]

блин... вообще нифига не понял... какой едит, какой пассворд диалог...
чуваг, можешь нормально описать, что тебе надо сделать?

[agent007]

блин... вообще нифига не понял... какой едит, какой пассворд диалог...
чуваг, можешь нормально описать, что тебе надо сделать?

Я так понимаю что вы нифига не поняли, а ведь я задал вопрос не смотря на название темы(дабы не создовать новую тему форума) А нужен мне код чтобы при нажатии копки прога проверяла совпадает ли пароль в текстовом поле и если совпадает то на другую форму!

[coolasm]

If (Edit1.Text=password) OpenForm(); else Form1.Close();

[VooDoo]

* VooDoo офигевает

[agent007]

Кароче всем спастба, но я сам разобрался ( а не получалось из-за кавычек)

[RILLey_ELf]

мозг разорван

[coolasm]

АгенТ007, поделись исходником, возможно у когонить тоже такие проблемы возникнут

[VooDoo]

сомневаюсь

[agent007]

АгенТ007, поделись исходником, возможно у когонить тоже такие проблемы возникнут

А чё тут писать, очень похоже на исходник от collasm:

  if edit1.Text='1234' then form3.show else form4.show;

[coolasm]

А чего пароль не зашифрован?

[iddqd]

патамучто зашить пароль тупо в экзэшнике равнасильно сказать иво сразу фсем