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

← →
Lamka (2004-12-23 14:55) [0]

Уважаемые мастера помогите мне. Мне нужно что бы в Label загружалась 1 или 5 или 10 строка из txt файла.

← →
Digitman © (2004-12-23 15:02) [1]

помогаем.
но стулья - завтра.

← →
Lamka (2004-12-23 15:12) [2]

Digitman ©
Какие стулья?

← →
eugene_sm (2004-12-23 15:16) [3]

напиши конкретнее свой вопрос

← →
ssk © (2004-12-23 15:18) [4]

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

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

← →
eugene_sm (2004-12-23 15:22) [5]

можно например так: (пример написан на коленке :)
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:26) [6]

>eugene_sm

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

← →
Digitman © (2004-12-23 15:26) [7]

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

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

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

← →
eugene_sm (2004-12-23 15:30) [8]

> ssk
это всего лиш один из вариантов!

← →
Lamka (2004-12-23 15:32) [9]

Digitman ©
Тоесть при каждом запуске игры текст в Label должен быть разным

← →
Ega23 © (2004-12-23 15:38) [10]

Label1.Caption:=DateTimeToStr(Now);
При каждом запуске стопудово будет разный текст. Если не чаще раз в миллисекунду запускать.
:о)

← →
Digitman © (2004-12-23 15:41) [11]

> Lamka (23.12.04 15:32) [9]

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

← →
ssk © (2004-12-23 15:43) [12]

>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) [13]

Label1.Caption := IntToStr(GetTickCount);

← →
Lamka (2004-12-23 16:58) [14]

Ega23 ©
А как сделать что бы после каждого запуска в Label загружалась новая строка 1 или 5 или 10.

← →
Ega23 © (2004-12-23 17:01) [15]

А это тебе где-то нужно хранить список "использованных" строк.
Что вообще за задача-то?

← →
Lamka (2004-12-23 17:01) [16]

← →
Lamka (2004-12-23 17:22) [17]

Ega23 ©
Короче я делаю игру Хто хочет стать миллионером. Мне надо что бы
в Label писался вопрос из файла. Вот приер файла
Сколько костей у человека
Более 100
Менее 100
Более 200
Менее 200

а ты не М.Галкин случаем ?
или, может быть, ты - тайно завидующий Галкину безвременно "кинувший" игру Д.Дибров 7

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

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

> [17] Lamka (23.12.04 17:22)

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

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

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

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

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

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

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

Сделай
Сколько костей у человека;Более 100;Менее 100;Более 200;Менее 200 Сколько костей у другого человека;Более 100;Менее 100;Более 200;Менее 200 Сколько костей у белого человека;Более 100;Менее 100;Более 200;Менее 200 Сколько костей у афроафриканца;Более 100;Менее 100;Более 200;Менее 200
и не парься.

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