Загрузка ini файла в Memo

[Pol1212]

Здравствуйте столкнулся с проблемой загрузки ini файла. Содержимое файла:

[Quest1]
Quest=Сколько лет васи?
Quest_O1=A пять
Quest_O2=B семь
Quest_O3=C девять
Quest_O4=D родинадцать
Ansver=A

[Quest2]
Quest= Когда началась ВОВ?
Quest_O1=A 1941
Quest_O1=B 1943
Quest_O1=C 1939
Quest_O1=D 1916
Ansver=A
Ansver=B
Ansver=C

вопрос около 50
Код для его загрузки:

//Quest номер вопроса 
//второй Quest это сам вопрос
Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Test1.ini');
    Memo1.Lines.Add(Quests.ReadString('Quest' + IntToStr(IntNextQuest),'Quest' ,'Тест окончен'));
    Ansver:=(Quests.ReadString('Quest' + IntToStr(IntNextQuest),'Ansver','Тест окончен'));

Проблема в том что он грузит только вопросы, а варианты вопросов отказывается показывать, не знаю как написать загрузку всего вопроса с вариантами ответов

[Streletz]

Попробуйте использовать ReadSectionValues.

[min@y™]

Попробуйте читать то, что копипастите из интернетов.
Это всех гуглокодеров касается!!!

[Pol1212]

Что именно читать?, это был видео урок, я в нем разобрался теперь хочу под себя написать. Просто не понятно почему он только одну строку грузит а все остальные отказывается видеть. Пробовал все в одну строку писать, он выводит все подряд и разделить по строчкам не могу.

[Аватар]

Что именно читать?

Для на чала хотя бы справку по свойствам и методам TIniFile

[Stilet]

Потому что у тебя параметры имеют одинаковые имена. в INI файле имена одинаковые в пределах одной ветки-секции недопустимы, хоть и ошибку не дают.
Впрочем есть лэкарцтво:

Quests.ReadSectionValues('Quest' + IntToStr(IntNextQuest),Memo.Lines);

Ну или так:

st:=TStringList.Create do begin
Quests.ReadSectionValues('Quest' + IntToStr(IntNextQuest),st); 
for i:=0 to st.count-1 do Memo.Lines.Append(st.ValueFromIndex[i]);
st.free;

[Pol1212]

Спасибо твой код помог, но нажав кнопку следующий вопрос у меня идет зацикливание на втором вопросе, и код читает мои ответы и выводит их:
Ansver=A
Ansver=B
Ansver=C

Как это можно исправить?

С зацикливанием справился мой косяк(, а вот что с ответами делать я хз, он их выводит на экран вместе с вопросами

[Stilet]

Как это можно исправить?

Вынести ответы в отдельную секцию.

[min@y™]

Как это можно исправить?

это исправлять нинада.
это нада выкинуть.
и написать свой хороший кодЪ.

Я прав?

[phomm]

В таких случаях обычно заводят секцию CountXXX в которую пишут кол-во чего-либо, а потом в цикле от начального индекса (какой зададите, но удобнее всего 1) до Count читают ключи XXX+IntToStr(i)
т.е. для Вашего случая

Count = 3
Answer1=blah
Answer2=blah
Answer3=blah