[Mr_OKU!]

Код:

begin
put_k_voprosam1:=path+'\Voprosy'+inttostr(form2.combobox1.itemindex+1)+'.db';
 str:=put_k_voprosam1;
 b1:=FileExists(put_k_voprosam1);
 b2:=FileExists(put_k_voprosam2);
 if (b1) and (b2 )then
  begin
   str:=put_k_voprosam1;
  end;
 if (b1) and (not (b2))then
  begin
   str:=put_k_voprosam1;
  end;
 if (b2) and (not (b1)) then
  begin
   str:=put_k_voprosam2;
  end;
 if (not (b1))and(not (b2)) then
  begin
   showmessage('Не найден файл с вопросами');
   halt;
  end;

Тут путь к вопросам1 а как добавить второй путь? У меня не получается помогите пожалуйста...

[Aristarh Dark]

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

По поводу вопроса, т.к. не ясно что за "путь к вопросам 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;

остальной код нафиг не нужен.

[Mr_OKU!]

У меня другая система может писать код полностью?