Помогите с составлением кода для игры "О, счастливчик"!

[]Wowan[]

Да Да, согласен с Kotofff, не вижу причины почему б не использовать здесь БД, а именно ини.

[KORN]

Сообщение от ]Wowan[

Да Да, согласен с Kotofff, не вижу причины почему б не использовать здесь БД, а именно ини.

такой умный, пример в студию и потом объясняй человеку как это работает...

[]Wowan[]

Я для этого и асю написал чтоб ему там объяснить че по чем

[kotzzz]

Спасибо всем за разъяснения...

У меня последний вопрос(уже для себя), прошу объянить подоходчивей!

У меня есть исходник проги на Delphi, там же лежит папка "Baza" с базами вопросов, всего 15 файлов(так сказать для 15-ти уровней), с видом записи(вид в оригинале):

question_1
1
Який із вчених відкрив періодичний закон?
1)
Менделєєв
0)
Ньютон
0)
Ломоносов
0)
Резерфорд
question_2
2
Яка із формул є формулою води?
1)
Н2О
0)
H2SO4
0)
HCl
0)
H2S
question_3
3
Який з даних металів є рідиною при звичайних умовах?
1)
ртуть
0)
залізо
0)
мідь
0)
алюміній
question_4
4
Ім'я російкого вченорго Ломоносова
1)
Михайло
0)
Іван
0)
Микола
0)
Василь
question_5
5
Який із даних металів відноситься до легких?
1)
aлюміній
0)
залізо
0)
хром
0)
міідь
question_6
6
Який із даних полімерів відноситься до природніх?
1)
крохмаль
0)
поліетилен
0)
полістирол
0)
полвпропілен
question_7
7
Якаіз наук є наукою про речовини?
1)
хімія
0)
біологія
0)
математика
0)
фізика
question_8
8
Яка із даних речовин відноситься до просних речовин?
1)
Н2
0)
CuO
0)
NaOH
0)
CaSO4
question_9
9
З якої кількості елементів складається молекула речовини HNO3
1)
3-ох
0)
2-ох
0)
4-ох
0)
5-ох
question_10
10
При якій температурі при нормальному тиску кипить вода
1)
100С
0)
0С
0)
50С
0)
120С

Итак, теперь вопрос:

как мне последовательно записать обращение к этому файлу, содержащему базу вопросов(в данном случае его дерриктория "\baza\1_etap.vtr"), подсчет в нём вопросов(т.е. результат: сколько в файле всего вопросов, пусть это будет переменная "R") с помощью слов question_(n), где "n" - это номер вопроса, использую оператор "WHILE", и последующего вывода переменной "R"? Нужно чтобы, код считал из файла строку "question_10" и выдал R=10; если в файле 25 вопросов, то считал бы строку "question_25" и выдал результат "R=25"?


Просьба подсказать подробный код, именно к этим данным, которые я написал выше! Убедительная просьба...
Или свой подробный вариант, не отходя далеко от тех данных, которые я дал... Просто в компиляции программы с оператором "WHILE" возникли проблемы, и хочу понять что к чему!

Если что-то в вашем коде мне нужно менять, чтоб подстроить код под свою программу, скажите сразу... не хочется снова вам задавать "глупые" вопросы!!!

[KORN]

Я для этого и асю написал чтоб ему там объяснить че по чем

а тут слабо7 форум для того и предназначен что бы делиться инфой

екарный бабай... я ж все описывал че и как делать и че искать...

var
  ini: tinifile;
  r: integer;
begin
  ini:=tinifile.create(extractfilepath(application.exename)+'baza\1_etap.vtr'); // открываешь нужный файл
  r:=0;
  while ini.valueexists('Base', 'Question_'+inttostr(r)) do  // считаем количество вопросов в файле
  inc(r);

QuestionLabel.caption:=ini.readstring('Base', 'question_'+inttostr(r), ''); // считываем из файла, остальное выводишь по аналогии
ini.free;

З. Ы.
а каким макаром ты хочешь считывать правильный ответ из файла7

[kotzzz]

а тут слабо7 форум для того и предназначен что бы делиться инфой

екарный бабай... я ж все описывал че и как делать и че искать...

Пожалуйста, не ругайтесь!

Пишет: Неописанный идентификатор: 'tinifile',
'DO' expected but identifier 'valueexists' found

а каким макаром ты хочешь считывать правильный ответ из файла7

за это не переживай!

[KORN]

а ты inifiles в uses добавил7

[kotzzz]

а ты inifiles в uses добавил7

да все равно код не работает, по идее он должен подсчитать в файле 10 вопросов, и выбрать один из них...

для проверки - я визуально проследил за ходом вычислений:
где он должен был выдать 10 - написал 0, ну и соответственно и выбрал из них тоже 0...

Все как ты сказал, KORN...


Подскажи, тогда: как подсчитать кол-во заполненных строк в ini файле, или файле другого расширения?
Не забудь про дирректории файлов, которые я писал в предыдущих сообщениях... если будешь использовать переменные - поясни, что ты ими обозначил!

[KORN]

если ты используешь обычный txt файл то используй TStrings;

var
  s: TStrings; // сюда файл грузить будем
  count: integer; //количество строк
begin
  s:=TStringlist.create;
  s.loadFromFile('тут имя файла'); 
  count:=s.count; // получили количество строк в файле
  s.free;
end;

дык ясен пень что у тебя не работает, какого у тебя Question_1, 2, 3 и остальные пустые то7 ты значения в них занеси для начала... я ж показывал тебе как должен файл выглядеть...

[Шульц]

А легче ли ему просто добавить секцию Caunt?
И потом просто считать нужное R из этой секции?
Ведь так проще и код лучше будет!

r:=Ini.ReadInteger('Count','1',0);

Или он так не хочет?