Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2010, 09:10   #1
Vohakisa
Пользователь
 
Регистрация: 11.05.2009
Сообщений: 47
По умолчанию Инициализация закрытия программы, если не был найден файл?

В общем, при Form1.Create у меня загружается текстовый файл в программу. Как сделать, чтобы при отсутствии файла, программа закрывалась.
Вроде должно работать, поправьте пожалуйста если не верно:
Код:
if FileExists(getcurrentdir + '\1.txt')
  then 
    LoadStringGrid(SG_A,getcurrentdir + '\1.txt'); //это вызов моей процедуры 
  else begin
    ShowMessage('Ненайден файл 1.txt');
    application.terminate;
  end;
Vohakisa вне форума Ответить с цитированием
Старый 30.05.2010, 09:56   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Должно работать. Только "Ненайден файл" правильно будет так написать "Не найден файл"!
Можно еще через блок
Try
...........
Except
...........
End;
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 30.05.2010, 10:23   #3
Vohakisa
Пользователь
 
Регистрация: 11.05.2009
Сообщений: 47
По умолчанию

Спасибо, сейчас попробую через try...except.
Vohakisa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Восстановить файл после закрытия и сохранения m_v_v Microsoft Office Excel 26 03.02.2017 02:39
не найден файл graph.tpu ошибка 15 SuperGreen Паскаль, Turbo Pascal, PascalABC.NET 11 12.02.2011 06:16
Не запускается файл - файл OECAPICOM_TLB.dcu не найден. cowboy Общие вопросы Delphi 3 26.04.2010 17:57
Файл не найден при автозагрузке Shouldercannon Общие вопросы Delphi 7 10.08.2008 20:37
RichEdit1 если текст найден надо чтоб он выделился в синий цвет xGroupers Общие вопросы Delphi 7 30.03.2008 13:56