Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

помогите плз - прога убиваться не хочет   Найти похожие ветки 

 
billybons ©   (2002-06-19 09:43) [0]

Подскажите , плз почеиу не работает такая штука :

OpenDialog1.Execute;
TTFileName:=OpenDialog1.FileName;
OpenDialog1.Free;
if TTFileName="" then
begin
ShowMessage("Не выбран TT-файл");
// Halt;
Application.Terminate;
end;
if not FileExists(TTFileName) then
begin
ShowMessage("Не найден файл "+TTFileName);
// Halt;
Application.Terminate;
end;

Show отрабатывает , а прога не кончается ни в какую :(((


 
Lord Warlock ©   (2002-06-19 09:51) [1]

Это надо писать так:

if OpenDialog1.Execute then
begin
TTFileName:=OpenDialog1.FileName;
if TTFileName="" then
begin
ShowMessage("Не выбран TT-файл");
Application.Terminate;
end;
if not FileExists(TTFileName) then
begin
ShowMessage("Не найден файл "+TTFileName);
Application.Terminate;
end;
end;



 
billybons ©   (2002-06-19 10:01) [2]

Один черт не вырубается ... где ж еще грабли-то могут быть ?


 
billybons ©   (2002-06-19 12:15) [3]

Господа, неужели больше никто не поскажет ничего ?


 
Skier ©   (2002-06-19 12:27) [4]

> billybons
Может быть стоит закрывать главную форму
приложения, а не вызывать Application.Terminate ?


 
ef2000   (2002-06-19 12:36) [5]

-> billybons
довольно странно, твой код у меня работает..


 
billybons ©   (2002-06-19 12:41) [6]

Главную закрывать тоже пробовал


 
Skier ©   (2002-06-19 12:43) [7]

> billybons
И что ? Тоже самое ??


 
billybons ©   (2002-06-19 12:46) [8]

Ну да ...


 
ef2000   (2002-06-19 12:49) [9]

-> billybons
попробуй юзануть на другой машине, проблема по-моему не в коде..


 
billybons ©   (2002-06-19 13:17) [10]


> ef2000

Даже перекомпилировал , но все равно то же самое :(
А у тебя какая версия дельфей ? Неужели и мне пришло время перебираться на D6 ?


 
ef2000   (2002-06-19 14:02) [11]

-> billybons
D5, Win2k Professional..


 
VID ©   (2002-06-19 16:32) [12]

2billybons © (19.06.02 13:17)
ну ты ещё на VB перейди :)

попробуй два варианта:
1. HALT;
2. PostMessage(Application.Handle, wm_quit, 0 , 0);

Кстати, ты не юзаешь компоненты RxTrayIcon ?


 
ZZ ©   (2002-06-19 16:36) [13]

А если
Application.Terminate;
Application.ProcessMessages;



Страницы: 1 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.013 c
14-1210
SleD
2002-06-01 19:01
2002.07.01
Заработок в Интернете?


1-965
Programmer1
2002-06-18 09:41
2002.07.01
TWordApplication


4-1261
Alexander
2002-05-02 12:25
2002.07.01
Пытаюсь нарисовать иконку на канве. Что я не так делаю?


1-1097
Tornado
2002-06-19 13:16
2002.07.01
И еще вопросик...


14-1174
lipskiy
2002-05-30 00:39
2002.07.01
Кому делать нечего? Напишите мне программку! :)