Вывод данных из файла в форму. Delphi.

[NightShade]

Есть текствовый файл теста:
CMF - это{
=каркасная система (инструментарий) для управления содержимым
~Язык программирования для интернета
~аналог СУБД
~Система управления содержимым чего-либо
}

Каскадная модель ЖЦ характеризуется:
{
~ на каждом последующем этапе возможно исправить ошибки, произошедшие на предыдущем этапе. Итог разработки — предоставление пользователю реально работающий продукт
= на каждом этапе осуществляется полный комплекс работ и полный выпуск документации, соответствующих этому этапу
~ разработка проекта производится только одной организацией или группой разработчиков. Вероятность ошибки снижается за счет возможности доработки предыдущих этапов работы
}

Zend Framework — это:{
=Каркас на PHP для разработки веб-приложений.
~Средство управления веб-сайтом
}
Необходимо из него заполнить модель формы в делфях. Сам тест делать не надо. Буду благодарен за любую подсказку.

[NightShade]

Эх... Неужели ни у кого нет исходников с примером хотябы?
А то будет обидно вылететь в конце пятого курса из-за единсвенного долга за второй. Тем более он из-за перевода, а делфи я учил лишь самостоятельно.

[mutabor]

Тут нет ничего сложного, простой парсинг текста. Грузите для удобства весь файл в TStringList, чтобы не тратить время на написание процедуры чтения из файла. А потом работайте со строками в цикле, определяйте вхождение подстроки '{', '='. '~' и на основании возвращенного результата заполняйте TRadioGroup пунктами (динамически, во время выполнения). Функции понадобятся Pos, PosEx, Copy может еще некоторые. При переходе к следующему вопросу (пользователь нажал "Далее") удалите все пункты из Радиогруппы и таким же образом грузите след. вопрос.

[Alter]

Как то неоднородно устроена структура:

CMF - это{

Каскадная модель ЖЦ характеризуется:
{

Zend Framework — это:{

Лучше бы было такого типа:

................................... ......:
{
=.................................. .......
~.................................. .......
}

Вот что получилось, доделаете если что надо добавить

[mutabor]

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

Как то неоднородно устроена структура:

Вроде нормально всё, варианты ответа внутри скобок {}, а двоеточие к самому вопросу относится а не к разделителям.

То что не всегда с новой строки, ну так и мы код тоже не всегда с новой строки писать начинаем, однако компилятор это дело распознает.

[NightShade]

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

Как то неоднородно устроена структура:

Лучше бы было такого типа:

Вот что получилось, доделаете если что надо добавить

Спасибо. Вы меня буквально спасли. Вполне подходит.Нет слов
Пойду разбираться.

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

Тут нет ничего сложного, простой парсинг текста. Грузите для удобства весь файл в TStringList, чтобы не тратить время на написание процедуры чтения из файла. А потом работайте со строками в цикле, определяйте вхождение подстроки '{', '='. '~' и на основании возвращенного результата заполняйте TRadioGroup пунктами (динамически, во время выполнения). Функции понадобятся Pos, PosEx, Copy может еще некоторые. При переходе к следующему вопросу (пользователь нажал "Далее") удалите все пункты из Радиогруппы и таким же образом грузите след. вопрос.

Спасибо за подсказку. Впринципе загвоздка была в моем отватительном знании делфи. Что такое TStringList например не понял. На панели форм такой не нашел. Остаются переменная, массив или может ListBox? Остальное вроде ясно хотя с реализацией могли быть проблемы.

[goblinyara]

На панели форм такой не нашел.

дык TStringList это и не компонент, это класс. а его использование уже много раз обсуждалось на форуме.

[Роман Радер]

var sl:TStringList;
begin
....
sl:=TStringList.Create;
//work with sl
sl.add('egserg');
...
sl.free;

[АмбрВа]

Народ, а мне поможите решить такую весч (в Delphi):
x>0
i>=0
A(i)=
числитель: (-1)в степени i+1 * ln(i*x)
знаменатель: i*(iв квадрате +1)
в долгу не останусь