Помогите сгенерировать сообщение об ошибке!!!

← →
Sapos © (2007-02-13 10:14) [0]

Здравствуйте!
Я использую comboBox для выбора имени таблицы, с которой я буду работать (имена таблиц сохраняются и подгружаются из файла), как мне сгенерировать сообщение об ошибке в том случае, если под конретным алиасом выбранной таблицы не существует (например: "Выбранная таблица отсутствует, выбирите другую"), чтобы сам дельфи не генерировал исключительную ситуацию и не прерывал работу программы.

Заранее Спасибо!!!

← →
novill © (2007-02-13 10:19) [1]

как пользоваться try...except знаешь?

← →
clickmaker © (2007-02-13 10:19) [2]

> Sapos © (13.02.07 10:14)

движок БД какой?

← →
Джо © (2007-02-13 10:19) [3]

> чтобы сам дельфи не генерировал исключительную ситуацию
> и не прерывал работу программы.

ShowMessage("Ошибка!");

← →
Sapos © (2007-02-13 10:25) [4]

> движок БД какой?

Paradox на BDE

← →
Sapos © (2007-02-13 10:26) [5]

> как пользоваться try...except знаешь?

К сожалению даже и не знаю что это такое(((

← →
clickmaker © (2007-02-13 10:27) [6]

> [5] Sapos © (13.02.07 10:26)

учи матчасть.
потом TSession.GetTableNames

← →
Separator © (2007-02-13 10:27) [7]

напиши в дельфякх try, шелкни на него левой кнопкой мыши и нажми F1

← →
Sapos © (2007-02-13 10:28) [8]

> ShowMessage("Ошибка!");

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

← →
Sapos © (2007-02-13 10:28) [9]

> учи матчасть.
> потом TSession.GetTableNames

в смысле матчасть? не совсем понял...

← →
Elen © (2007-02-13 10:37) [10]

> Sapos © (13.02.07 10:28) [9]

А может будет проще воспользоваться хелпом по BDE и DbiGetErrorInfo вместе с try, в котором база открывается?

← →
Neket (2007-02-13 10:37) [11]

Query1.close;
Query1.SQL.Clear;
If StrZapros <> "" then
Query1.SQL.Add(StrZapros+"order by 2")
else
begin
messageDlg("Пустой запрос", mtError, [mbOK], 0);
exit;
end;
try
Query1.Open;
except
On e : EDatabaseError do // Почитай про эти ошибки
//On e : Exception do
begin
messageDlg(" Ой Ой Ой.... Ошибочка - "+e.message,mtError,[mbOK],0);
exit;
end;
end;

> On e : EDatabaseError do // Почитай про эти ошибки
> //On e : Exception do

здесь после e: нужно какой-то код ошибки добавлять или как? мне он отдает ошибку EDBEngineError

> Query1.Open;

Я использую Table - с ним работать будет?

ВСЕМ СПАСИБО!!! Заработало, нормально, сойдет!!!

Помогите сгенерировать сообщение об ошибке!!! Найти похожие ветки