чтение файла по строкам

← →
Dennis I. Komarov © (2011-09-13 23:15) [40]

> не получается((пишет что страница не найдена..

Это первое задание :) - познать hex ибо $

← →
Inovet © (2011-09-13 23:31) [41]

> [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 тогда ошибка

← →
Омлет © (2011-09-13 23:36) [42]

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;

← →
Dennis I. Komarov © (2011-09-13 23:38) [43]

> Dennis, зачем издеваешься над студентом?

Я издеваюсь?
Человек от халявы отказался, я помочь хочу...
Пусть напишет хороший код...

← →
Омлет © (2011-09-13 23:38) [44]

Но советую найти учебник по Дельфи, а не писать методом тыка.

← →
Омлет © (2011-09-13 23:40) [45]

> Dennis I. Komarov © (13.09.11 23:38) [43]

Когда хотят помочь, дают номер аськи в десятичной системе.

← →
Anatoly Podgoretsky © (2011-09-13 23:42) [46]

> Омлет (13.09.2011 23:36:42) [42]

> Dennis, зачем издеваешься над студентом?

точка

← →
Dennis I. Komarov © (2011-09-13 23:45) [47]

> Омлет © (13.09.11 23:40) [45]

Скажи еще, что код готовый пишут...

← →
Dennis I. Komarov © (2011-09-13 23:46) [48]

> Anatoly Podgoretsky © (13.09.11 23:42) [46]

пусть пишет, вдруг что толковое получится...

← →
jess (2011-09-14 22:05) [49]

всем спасибо за уделенное время..

← →
aleko © (2011-09-15 16:04) [50]

Удалено модератором

← →
Inovet © (2011-09-15 16:22) [51]

Удалено модератором

> [49] jess (14.09.11 22:05)
> всем спасибо за уделенное время..

Так получилось сделать?

Удалено модератором

чтение файла по строкам Найти похожие ветки