Не видит файл Quests1.ini

[A_R_M1902]

При запуске программы не видит файл, и пишет "ничего нет" как было задано по окончании теста

unit UnitGeneral;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles;

type
  TFormTestDelphi = class(TForm)
    MemoQuestTest: TMemo;
    ButtonStartTest: TButton;
    RadioGroupNumberTicket: TRadioGroup;
    RadioButtonfirstTicket: TRadioButton;
    RadioButtonLastTicket: TRadioButton;
    RadioButtonallTicket: TRadioButton;
    RadioButtonTicketQuest1: TRadioButton;
    RadioButtonTicketQuest2: TRadioButton;
    ButtonNext: TButton;
    procedure ButtonStartTestClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTestDelphi: TFormTestDelphi;
  Quests:TIniFile;
  IntnextQuest:integer;
  OtvetStr,OtvetUserStr:string;

implementation

{$R *.dfm}

procedure TFormTestDelphi.ButtonNextClick(Sender: TObject);
begin
case RadioButtonTicketQuest1.Checked of
true:begin OtvetUserStr:='A'; end;
false:begin OtvetUserStr:='B'; end;
end;
     if OtvetStr = OtvetUserStr then
      begin
        ShowMessage ('Правильный ответ!')
      end;
Inc(IntnextQuest);
     MemoQuestTest.Lines.Clear;
     Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests1.ini');
     MemoQuestTest.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Quest','ничего нет'));
     OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Otvet','ничего нет'));
end;

procedure TFormTestDelphi.ButtonStartTestClick(Sender: TObject);
begin
IntnextQuest:=1;
if RadioButtonFirstTIcket.Checked = true then
   begin
     MemoQuestTest.Lines.Clear;
     Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests1.ini');
     MemoQuestTest.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Quest','ничего нет'));
     OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Otvet','ничего нет'));
   end;
end;

end.

Вот сами вопросы из .ini - файла

[Quest1]
Quest=1+1 А-2, Б-4
Otvet=A

[Quest2]
Quest=2+2 А-4, Б-3
Otvet=A


[Quest3]
Quest=5+5 А-10, Б-7
Otvet=A


[Quest4]
Quest=3+3 А-6 Б-2
Otvet=A

[evg_m]

и пишет "ничего нет"

где это в коде программы?


у вас чтение ini-файла выполняется при нажатии соответствующих кнопок
start next и только?

[NetSpace]

а сделайте-ка, чтоб у вас эти процедуры выполнялись при создании формы. так сказать, сразу при запуске программы, а не по нажатию кнопки.
-------------
такое ощущение, что именно в этой строке

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests1.ini');

кроется ошибка - путь к файлу неточный.
--------------
я бы сделал путь к файлу так:

ExtractFilePath(ParamStr(0))+'Quest1.ini';

[northener]

Сообщение от NetSpace

такое ощущение, что именно в этой строке
Код:

Quests:=TIniFile.Create(ExtractFile Path(Application.ExeName)+'Quests1. ini');

кроется ошибка - путь к файлу неточный.
--------------
я бы сделал путь к файлу так:
Код:

ExtractFilePath(ParamStr(0))+'Quest 1.ini';

Что в лоб, что по лбу. Это одно и тоже.

[Viktor61]

Сообщение от A_R_M1902

Quests:=TIniFile.Create(ExtractFile Path(Application.ExeName)+'Quests1. ini');

После этой строки введите Showmessage(Quests); - посмотрите что из себя представляет полный путь к файлу. Не забудьте подключить модуль, где прописан Showmessage: в uses впишите Dialogs.
Есть путь к файлу правильный в рабочей версии все это нужно будет удалить.

[NetSpace]

ну да, в любом случае, посмотрите, что у вас за путь такой выводит. один лишний символ в виде пробела или кавычки - и всё, не арбайтен...
--------------
вот тут пробелов лишних нет в расширении файла?

Quests:=TIniFile.Create(ExtractFile Path(Application.ExeName)+'Quests1. ini');