OpenDialog

← →
assassin8899 (2008-05-18 14:54) [0]

Имеется OpenDialog и условие

if opendialog1.Execute then
begin
FileName:=opendialog1.FileName;
....
end
ELSE
messageDlg("Для начала отройте БД",mtWarning,[mbOK],0);

Как сделать чтобы после нажития конопки "ОТМЕНА" , то бишь после messageDlg(..); выполнялась опять операция
if opendialog1.Execute then
begin
FileName:=opendialog1.FileName;
....

← →
No_Dead © (2008-05-18 15:09) [1]

??? тобишь пока я не выберу файл то буду наблюдать постоянно это окно?%>

← →
Германн © (2008-05-18 15:13) [2]

FileName:="";
repeat
...
until FileName <> "";

← →
korneley © (2008-05-18 15:28) [3]

> тобишь пока я не выберу файл то буду наблюдать постоянно
> это окно?

А убивать программу, если файл не выбран, через диспетчер задач собираешься?

← →
assassin8899 (2008-05-18 16:01) [4]

я пробовал goto но у меня происходит зацикливание при выборе БД

>>тобишь пока я не выберу файл то буду наблюдать постоянно это окно?%>
впринципе да
Изначально была проблема чтобы при нажатии кнопки ОТМЕНА у меня вновь появлялось окно и так пока я не выберу файл БД

>>А убивать программу, если файл не выбран, через диспетчер задач собираешься?
вот это сейчас для меня и проблема
Теперь каждый раз как я выбираю БД у меня это окно появляется вновь и вновь

← →
No_Dead © (2008-05-18 16:34) [5]

> [4] assassin8899 (18.05.08 16:01)

а не проще ли писать «Работа приложения не возможна, пока не будет выбрана база!».
А вообще, сделай K.I.S.S.%>

← →
assassin8899 (2008-05-18 16:52) [6]

Все заработало.Сделал goto

← →
Renegat (2008-05-18 17:04) [7]

Я бы такую прогу сразу через диспетчер снял и стёр нафиг от греха подальше =)
Так что +1 за вариант из [5].

OpenDialog Найти похожие ветки