| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
чтение файла по строкам
jess © (2011-09-08 22:39:00)привет! пишу тестирующую программу, в которой дан файл с вопросами и вариантами ответов теста. подскажите пожалуйста как сделать так, чтобы файл читать по строкам?т.е. допустим первая строка - вопрос, следующие 3 строки - варианты ответа????и как запомнить какой из ответов правильный???очень нужна помощь!!!
Dennis I. Komarov (2011-09-15 20:29:00) [1]Удалено модератором
aleko (2011-09-15 20:04:00) [2]Удалено модератором
Jeer (2011-09-15 18:20:00) [3]Удалено модератором
aleko (2011-09-15 18:11:00) [4]Удалено модератором
Inovet (2011-09-15 16:22:00) [5]> [49] jess (14.09.11 22:05)
> всем спасибо за уделенное время..
Так получилось сделать?
Inovet (2011-09-15 16:22:00) [6]Удалено модератором
aleko (2011-09-15 16:04:00) [7]Удалено модератором
jess (2011-09-14 22:05:00) [8]всем спасибо за уделенное время..
Dennis I. Komarov (2011-09-13 23:46:00) [9]
> Anatoly Podgoretsky © (13.09.11 23:42) [46]
пусть пишет, вдруг что толковое получится...
Dennis I. Komarov (2011-09-13 23:45:00) [10]
> Омлет © (13.09.11 23:40) [45]
Скажи еще, что код готовый пишут...
Anatoly Podgoretsky (2011-09-13 23:42:00) [11]> Омлет (13.09.2011 23:36:42) [42]
> Dennis, зачем издеваешься над студентом?
точка
Омлет (2011-09-13 23:40:00) [12]> Dennis I. Komarov © (13.09.11 23:38) [43]
Когда хотят помочь, дают номер аськи в десятичной системе.
Dennis I. Komarov (2011-09-13 23:38:00) [13]
> Dennis, зачем издеваешься над студентом?
Я издеваюсь?
Человек от халявы отказался, я помочь хочу...
Пусть напишет хороший код...
Омлет (2011-09-13 23:38:00) [14]Но советую найти учебник по Дельфи, а не писать методом тыка.
Омлет (2011-09-13 23:36:00) [15]Dennis, зачем издеваешься над студентом?
> jess
Я бы сделал разбор файла как-то так:
procedure LoadTest(const FileName: string);
var
SL: TStringList;
i: integer;
s: AnsiString;
begin
if not FileExists(FileName) then
exit;
SL := TStringList.Create;
try
SL.LoadFromFile(FileName);
for i := 0 to SL.Count - 1 do
begin
s := SL[i];
if length(s) <= 0 then
continue;
case s[1] of
'!': begin
// тут вопрос
end;
'+': begin
// тут верный ответ
end;
'-': begin
// тут неверный ответ
end;
end;
end;
finally
SL.Free;
end;
end;
Inovet (2011-09-13 23:31:00) [16]> [26] jess (13.09.11 21:53)
> begin
Сделай для начала интерфейс. Как минимум кнопки "Начать", "Следующий вопрос". И назови ты их по человечески btnStart, btnNext.
Из OnActivate выкинь всё.
В btnStartClick открываем файл а лучше поток,
сбрасываем счётчик вопросов CntQuestion := 0
и правильных ответов CntAnswer := 0.
Как вначале посчитать количество вопросов, потом разберёшься.
Вызываем ReadQuetion
В btnNextClick
если eof() выводим результат и закрываем файл
иначе
ReadQuetion
Ibc(CntQuestion)
если AnswerNum = номеру выбранной радиокнопки тогда Inc(CntAnswer)
в procedure ReadQuetion
читаем строку
если первый символ не "!" тогда ошибка
иначе со второго выводим текст вопроса
AnswerNum := 0
читаем строку
если первый символ "+" тогда AnswerNum := 1
со второго выводим текст первого варианта
читаем строку
если первый символ "+" тогда AnswerNum := 2
со второго выводим текст второго варианта
читаем строку
если первый символ "+" тогда AnswerNum := 3
со второго выводим текст третьего варианта
если AnswerNum = 0 тогда ошибка
Dennis I. Komarov (2011-09-13 23:15:00) [17]
> не получается((пишет что страница не найдена..
Это первое задание :) - познать hex ибо $
jess (2011-09-13 23:13:00) [18]не получается((пишет что страница не найдена..
Dennis I. Komarov (2011-09-13 22:54:00) [19]см. [34]
jess (2011-09-13 22:52:00) [20]я хочу написать неплохую прогу,и своими руками,чтобы навыки остались...
| |
Страницы: 