Показать сообщение отдельно
  #2  
Старый 15.05.2013, 17:27
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Адский код, прекрасный пример того как не нужно писать программы...

По поводу вопроса, т.к. не ясно что за "путь к вопросам 2" я придумал его сам, пример ниже:
Код:
 put_k_voprosam1:=path+'\Voprosy'+inttostr(form2.combobox1.itemindex+1)+'.db';
 put_k_voprosam2:='C:\super-puper vopros\baza.db';
 if FileExists(put_k_voprosam1) then
   str:=put_k_voprosam1
 else if FileExists(put_k_voprosam2) then
   str:=put_k_voprosam2
 else
   begin
     showmessage('Не найден файл с вопросами');
     halt;
   end;
остальной код нафиг не нужен.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием