Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Lamer:) © (2006-01-21 14:48:00)
Привет всем!
Вот решил написать игру типа "Кто хочет стать милионером" и у меня возникли сложности с загрузкой вопросов.
Мне нужно что бы они брались из файла.В 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 строки.

keni (2006-01-22 16:36:00) [1]
Вот ещё как более проще можно:
ListBox1.Items.LoadFormFile('vopros.dat'); ListBox1.Items[0]=Label1.Caption; {...}

П7 (2006-01-21 17:57:00) [2]
И это... До прочтения учебника по Delphi и пары десятков статей воздержись от постинга тупых вопросов на форуме.

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

П7 (2006-01-21 17:55:00) [3]
http://reijii.mirg.ru/_tmp/Project1.rar
фтыкай! (:
Более ламерскее я написать не могу, сори! (:

Lamer:) (2006-01-21 17:51:00) [4]
Да теперь всё понятно кроме одного почему высвечиваются ошибки
[Error] Unit1.pas(35): Function needs result type
[Error] Unit1.pas(41): Undeclared identifier: 'Label1'
[Error] Unit1.pas(41): Undeclared identifier: 'ReadStr'

LaGGer|N00b (2006-01-21 17:39:00) [5]
есть он у тебя
юзес заюзай

П7 (2006-01-21 17:38:00) [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 и т.д.

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

Lamer:) (2006-01-21 17:31:00) [7]
У меня нету InitFiles.dcu.
Может есть другой способ?

Lamer:) (2006-01-21 17:25:00) [8]
Не поясни плиз что это такое ini.ReadStr('Q'+NumS, 'A4', '');
Видиш в файле не один вопрос а много и нужно что бы при каждом запуске программы вопросы менялись

П7 (2006-01-21 16:36:00) [9]
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 15:27:00) [10]
Я не знаю как загружать определённые строки в определённые Лабелы.

Da Stranger (2006-01-21 15:08:00) [11]
Какие проблемы? if ... then ... уже не в моде?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »