тесты в Delphi 7

[burikesan]

да я в курсе что эта тема уже всех задолбала, но то ли я валенок, то ли не понимаю чего..
суть проблемы такова:
Мне нужно создать тест на N количество вопросов которые будут выводится из текстового файла. Я потер ладошки, ну думаю, на пол часа делов. фиг там завис на выводе вопроса в Memo и вариантов ответа в RadioGroup. по всякому пробовал все не то. Наткнулся в сети на тип TStringList, думаю вот оно! бамс.... ошибочка...

procedure TForm2.Button2Click(Sender: TObject);
var
n:integer;
 fail: textfile;
 st:tstringlist;
begin
assignfile(fail,'вопросы.txt');
reset(fail);
 n:=0;
While not EOF(fail) do
begin
RadioGroup1.caption:='вопрос №'+ inttostr(n+1);
memo1.lines.text:=st.count 1;

end;
closefile(fail);
end;

подскажите как быть...

[phomm]

Тут всё неправильно.
Во-первых, грузить тест по кнопке - плохая идея, нужна отдельная подпрограмма.
Во-вторых, смешивать паскалевые файлы с загрузкой через стринглист - нерационально, лучше использовать только 1 способ.
В-третьих, читая файл подряд, нельзя никак сделать разные вопросы - всё будет сплошняком, Вы же не разграничиваете ничем.
В-четвёртых, вывод в радиогруп вариантов ответов делается через Items (которые надо будет чистить с каждым новым вопросом)
В-пятых, не умеете пользоваться стринглистом (а если быть точным, классами вообще) - лучше изучите матчасть.

Я уж не говорю про то, что "st.count 1" вызовет ошибку компиляции (а даже исправленный - ошибку выполнения), про отступы в коде, про наименование контролов, идентификаторов и соблюдение регистра символов.
Это fail.

Вот есть программка для Вашей задачи http://programmersforum.ru/showpost....78&postcount=7

[NetSpace]

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

[Алексей_2012]

Не думаю то, что ваша программа -хороший выход для ТС, потому что файлы шифруются и расшифровываются только известным вам ключом, когда-то писал программку в качестве курсовой, вот ехе)

http://www.programmersforum.ru/showp...9&postcount=10

[NetSpace]

а иначе можно просто залезть и посмотреть вопросы и правильные к ним ответы - смысл теста пропадает. а так никто пока не смог подсмотреть.

[NIKOLAYY2]

Я потер ладошки, ну думаю, на пол часа делов. фиг там завис на выводе вопроса в Memo и вариантов ответа в RadioGroup. по всякому пробовал все не то. Наткнулся в сети на тип TStringList, думаю вот оно! бамс.... ошибочка...

Видимо ты очень плохо организовал структуру своего текстового файла. тип TStringList очень хорошо для этого подходит и он как самый простой вариант.
Грузиш в него все полностью вопросы и варианты ответов для RadioGroup, а затем в твоей прогамме должна быть переменная счетчик (номер вопроса) отталкиваясь от нее ты и заполняеш все свои лейблы вопросами и радиокнопки возможными вариантами ответов из нужных номеров строк TStringList-а, более того если у тебя картиночный тест, то и ссылки на картинки оставляеш там же в текстовом файле.
Лучше когда твой ехе-шник максимально разгружен от этого.
Ну например ты собрал новый интерфейс программы, а текстовый файл с вопросами у тебя уже готовый для него.