Прога тест Г. Айзенка на определение типа темперамента.

[Black_Wolf]

Программа на определения темперамента по Айзенку, вопросы программа берёт через файл Quest1.ini стоят 2 кнопки "начать" для начала теста и кнопка "далее" код ниже .
Иметса определённые ключи к тестом для определение темперамента
http://adlog.narod.ru/emu/0013_3.html
я не знаю как организовать хранения ответов с проверкой результатов по ключам НАДЕЮСЬ НА ВАШУ ПОДДЕРЖКУ, мире програмировании не давно не судите строга )))

procedure Ttemperament.btnstartClick(Sender: TObject);

begin
voproschechik:=1;
begin
Quest1:=TIniFile.Create(ExtractFile Path(Application.ExeName)+'Quest1.i ni');
mmoVop_Azek.lines.add(Quest1.ReadSt ring('Quest'+IntTostr(voproschechik ),'V1','нету вопроса'));
end;
end;

procedure Ttemperament.btn1Click(Sender: TObject);
begin
mmoVop_Azek.lines.Clear;
inc(voproschechik);
Quest1:=TIniFile.Create(ExtractFile Path(Application.ExeName)+'Quest1.i ni');
mmoVop_Azek.lines.add(Quest1.ReadSt ring('Quest'+IntTostr(voproschechik ),'V1','нету вопроса'));
end;

[Armorer]

код вообще компилируется?

ExtractFile Path

ReadSt ring

Если я вы только начинаете программировать то попробуйте не использовать TIniFile, а начните с более простых вещей (например, сейчас если нажать кнопку два раза будет утечка памяти).

Храните вопросы просто в текстовом файле.

Все ответы запоминайте в массиве (кажется, подойдет array[1..n] of Boolean). После прохождения теста просто вычисляйте нужные суммы на основе этого массива, думаю, для начала даже можно прописать все это в коде (не хранить ответы отдельно в файле).

procedure Ttemperament.btnstartClick(Sender: TObject);
begin
..
begin//тутеще begin лишний.
..
end;
end;