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

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

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

Помогите пожалуйста! [D7, WinME]

Sashok © (2004-12-27 18:39:00)
Удалено модератором
Примечание: ban

begin...end (2004-12-27 21:17:00) [1]
> [11] Пат (27.12.04 19:58)

А если рандомом, то и массив не нужен:

var
...
S: String;

begin
...
Randomize;
for i := 0 to Random(100) do
ReadLn(r, S);
...
Label1.Caption := S
end.

begin...end (2004-12-27 21:10:00) [2]
> Sashok (27.12.04 18:39)

Вы уже в третий раз этот вопрос задаёте?
Ведь это Вы делаете программу "Кто хочет стать миллионером"?

Пат (2004-12-27 19:58:00) [3]
А если рандомом то еще проще:

AssignFile(r,'Text.txt');
Reset(r);
for i := 0 to 100{Всего строк} do
begin
Readln(r, stri[i]);
end;
Close(r);
Randomize;
Label1.Caption := stri[Random(100)];

Пат (2004-12-27 19:40:00) [4]
Не рандомом
----------------------------------------
var
rep, i: Integer;
w,r: TextFile;
str: Array [0..100{Всего строк}] of String;
begin
// Читаем сколько раз была запущена программа
AssignFile(w,'Open.txt');
Reset(w);
Read(w, rep);
Close(w);

// Выводим строку из файла
AssignFile(r,'Text.txt');
Reset(r);
for i := 0 to 100{Всего строк} do
begin
Readln(r, stri[i]);
end;
Close(r);
case rep of
1: Label1.Caption := stri[0]; // 1 строка
2: Label1.Caption := stri[5]; // 6 строка
{... и т.д.}
end;

// Записываем сколько раз была запущена программа + 1
AssignFile(w,'Open.txt');
Rewrite(w);
Inc(rep);
Write(w, rep);
Close(w);
end;
--------------------------------------------------------------
Размышляй...

Sashok (2004-12-27 19:16:00) [5]
Profi ©
Огромное человеческое спасибо!

Profi (2004-12-27 18:57:00) [6]
Profi © (27.12.04 18:56) [7]
"Текстовыйж" - это не описка, это я ";" хотел поставить :)

Profi (2004-12-27 18:56:00) [7]
Sashok (27.12.04 18:51) [6]
Надеюсь догадаешься куда этот кусок вставить!

1. Исли файл типизированный!
var fl:file of string[150]; s:string; begin assignfile(fl,'Имя Файл'); reset(fl); randomize; seek(fl,random(filesize(fl)+1)); read(fl,s); closefile(fl); label1.caption:=s; end;

2. Файл - текстовыйж

var fl:textfile; s:string; i,j:integer; begin assignfile(fl,'Имя Файл'); reset(fl); randomize; j:=random(filesize(fl)+1); for i:=0 to j do readln(fl,s); closefile(fl); label1.caption:=s; end;

Мог чего напутать, но принцып такой!

Sashok (2004-12-27 18:51:00) [8]
Profi ©
Лучше второй.

Sashok (2004-12-27 18:50:00) [9]
Я читаю но видимо не достаточно.Но как это сделать то?

Profi (2004-12-27 18:49:00) [10]
Vasya.ru © (27.12.04 18:46) [3]
Поддерживаю!
Sashok (27.12.04 18:44) [2]
Какой из дву предложенных мною вариантов нужен?

Vasya.ru (2004-12-27 18:46:00) [11]
читать книжки и учиться, учиться и еще раз учиться

Sashok (2004-12-27 18:44:00) [12]
Profi ©
А как воплотить в жизнь то что вы написали.

Profi (2004-12-27 18:40:00) [13]
Sashok (27.12.04 18:39)
В чем проблема-то?
1. Веди учет кол-ву запусков.
2. В зависимости от запуска, читай из файла нужную строку!
А если все равно от номера запуска не зависит, то random ставь и все!

Наверх

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