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

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

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

Помогите с созданием игры

Страницы: 1 2 >
Lamka © (2004-12-23 14:55:00)
Уважаемые мастера помогите мне. Мне нужно что бы в Label загружалась 1 или 5 или 10 строка из txt файла.

Ega23 (2004-12-23 17:38:00) [1]
Сделай
Сколько костей у человека;Более 100;Менее 100;Более 200;Менее 200 Сколько костей у другого человека;Более 100;Менее 100;Более 200;Менее 200 Сколько костей у белого человека;Более 100;Менее 100;Более 200;Менее 200 Сколько костей у афроафриканца;Более 100;Менее 100;Более 200;Менее 200
и не парься.

Digitman (2004-12-23 17:33:00) [2]

> Сколько костей у человека
> Более 100
> Менее 100
> Более 200
> Менее 200

я бы не хотел играть в такую игру, где есть неоднозначные ответы)

скажем, у человека 150 костей (о боже ! и откуда только он их поимел, такую уйму ? если еще и с женщиной при сотворении делиться приходилось ?)

Более 100 - вроде бы верно
Менее 200 - тоже, однако, верно !

просматривается явный повод для злоупотребления "служебным положением" новоявленным "галкиным")...

begin...end (2004-12-23 17:32:00) [3]
> [17] Lamka (23.12.04 17:22)

> Сколько костей у человека
> Более 100
> Менее 100
> Более 200
> Менее 200

Если костей больше 200, то их больше 100. Как, в таком случае, ответить?

antonn (2004-12-23 17:29:00) [4]

> Короче я делаю игру Хто хочет стать миллионером.

ну и что, много вопросов уже придумал?

Digitman (2004-12-23 17:28:00) [5]
а ты не М.Галкин случаем ?
или, может быть, ты - тайно завидующий Галкину безвременно "кинувший" игру Д.Дибров 7

Lamka (2004-12-23 17:22:00) [6]
Ega23 ©
Короче я делаю игру Хто хочет стать миллионером. Мне надо что бы
в Label писался вопрос из файла. Вот приер файла
Сколько костей у человека
Более 100
Менее 100
Более 200
Менее 200

Lamka (2004-12-23 17:01:00) [7]
ssk ©
Мне надо определённые строчки в файле а не случайную.

Ega23 (2004-12-23 17:01:00) [8]
А это тебе где-то нужно хранить список "использованных" строк.
Что вообще за задача-то?

Lamka (2004-12-23 16:58:00) [9]
Ega23 ©
А как сделать что бы после каждого запуска в Label загружалась новая строка 1 или 5 или 10.

ssk (2004-12-23 15:43:00) [10]
>Lamka

в начале программы, например в OnCreate, пишешь

Randomize;

потом тоже где-то вот примерно такое:

var s: string; List: TStrings; begin List := TStringList.Create; List.LoadFromFile( имя файла ); s := List[Random(List.Count)]; List.Free; end;

в s получаешь случайную строку из текста.

eugene_sm (2004-12-23 15:43:00) [11]
Label1.Caption := IntToStr(GetTickCount);

Digitman (2004-12-23 15:41:00) [12]

> Lamka (23.12.04 15:32) [9]

см. ф-цию Random и процедуру Randomize

Ega23 (2004-12-23 15:38:00) [13]
Label1.Caption:=DateTimeToStr(Now);
При каждом запуске стопудово будет разный текст. Если не чаще раз в миллисекунду запускать.
:о)

Lamka (2004-12-23 15:32:00) [14]
Digitman ©
Тоесть при каждом запуске игры текст в Label должен быть разным

eugene_sm (2004-12-23 15:30:00) [15]
> ssk
это всего лиш один из вариантов!

Digitman (2004-12-23 15:26:00) [16]

> Lamka (23.12.04 15:12) [2]
> Какие стулья?

негоже программеру, посягнувшему на "создание игр", не знать ни Ильфа, ни Петрова, ни их "12-тистульную нетленку")

что значит "или" ? ты можешь вразумительно задачу описать ?

ssk (2004-12-23 15:26:00) [17]
>eugene_sm

а StringList'ом вооружиться не судьба?

eugene_sm (2004-12-23 15:22:00) [18]
можно например так: (пример написан на коленке :)
var f: textfile;
s: string;
i: integer;
begin
assignfile(f,'c:\1.txt');
reset(f);
i := 0;
s := '';
while not eof(f) do
begin
inc(i);
readln(f,s);
case i of
1: Label1.Caption := s;
5: Label1.Caption := s;
10: Label1.Caption := s;
end;
end;
closefile(f)
end;

ssk (2004-12-23 15:18:00) [19]
>Lamka (23.12.04 15:12) [2]
Какие стулья?

сколько $ платишь за готовое решение?

eugene_sm (2004-12-23 15:16:00) [20]
напиши конкретнее свой вопрос

Страницы: 1 2 >

Наверх

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