Помогите создать игру

← →
Lamer:) (2006-01-21 14:48) [0]

Привет всем!
Вот решил написать игру типа "Кто хочет стать милионером" и у меня возникли сложности с загрузкой вопросов.
Мне нужно что бы они брались из файла.В Lable1(Это вопрос) загружалась 1,6,11,16,и т.д. строка, а в Label2,3,4,5(это варианты ответов) загружались 2,3,4,5,7,8,9,10, и т.д. причем если в лабел1 загружена 1-ая строка то в лабел2,3,4,5 должны быть загружены 2,3,4,5 строки.

← →
Da Stranger © (2006-01-21 15:08) [1]

Какие проблемы? if ... then ... уже не в моде?

← →
Lamer:) (2006-01-21 15:27) [2]

Я не знаю как загружать определённые строки в определённые Лабелы.

← →
П7 (2006-01-21 16:36) [3]

uses InitFiles; var ini : TInitFile; ... // в Create формы пишем ini := TIniFile.Create("q.ini"); // q.ini - файл с фопросами\ответами function NewQ(Num : Integer); var NumS : String; Cnt : Integer; begin NumS := IntToStr(Num); Label1.Caption := ini.ReadStr("Q"+NumS, "Text", ""); Label2.Caption := ini.ReadStr("Q"+NumS, "A1", ""); Label3.Caption := ini.ReadStr("Q"+NumS, "A2", ""); Label4.Caption := ini.ReadStr("Q"+NumS, "A3", ""); Label5.Caption := ini.ReadStr("Q"+NumS, "A4", ""); Label6.Caption := ini.ReadStr("Q"+NumS, "R", "A1"); // Label6.Visible := false; // в Label6 хранится правильный ответ. end;

Что-то в этом роде. Надеюсь понял. (:

← →
Lamer:) (2006-01-21 17:25) [4]

Не поясни плиз что это такое ini.ReadStr("Q"+NumS, "A4", "");
Видиш в файле не один вопрос а много и нужно что бы при каждом запуске программы вопросы менялись

← →
Lamer:) (2006-01-21 17:31) [5]

У меня нету InitFiles.dcu.
Может есть другой способ?

← →
П7 (2006-01-21 17:38) [6]

Блин, мог бы и догадаться. Я ошибся. Нужен IniFiles.

ini.ReadStr("Q"+NumS, "A4", "");
Читаем вопрос с Номером Num.

Файл с вопросами имеет следующий вид

[Q1]
Text=Чё пьёт П7, чтобы ему было хорошё?
A1=Водку
A2=Пиво
A3=Персиковый сок
A4=Воду
R=A3

Далее то же самое с Q2, Q3 и т.д.
В R хринится правильный ответ. Можно просто номера писать. Не A1, A2, но 1, 2, 3 и т.д.

Может за тебя игру сделать?

← →
LaGGer|N00b (2006-01-21 17:39) [7]

есть он у тебя
юзес заюзай

← →
Lamer:) (2006-01-21 17:51) [8]

Да теперь всё понятно кроме одного почему высвечиваются ошибки
[Error] Unit1.pas(35): Function needs result type
[Error] Unit1.pas(41): Undeclared identifier: "Label1"
[Error] Unit1.pas(41): Undeclared identifier: "ReadStr"

← →
П7 (2006-01-21 17:55) [9]

http://reijii.mirg.ru/_tmp/Project1.rar
фтыкай! (:
Более ламерскее я написать не могу, сори! (:

← →
П7 (2006-01-21 17:57) [10]

И это... До прочтения учебника по Delphi и пары десятков статей воздержись от постинга тупых вопросов на форуме.

"Не всегда нужно сразу писать в форум. Иногда вот вроде и хочется, а ты берешь и ррраз - не пишешь. Потому что сила воли, да!"
(с)Андрей "КранК" Кузьмин

Вот ещё как более проще можно:
ListBox1.Items.LoadFormFile("vopros.dat"); ListBox1.Items[0]=Label1.Caption; {...}

Помогите создать игру Найти похожие ветки