Помогите пожалуйста!

← →
Sashok (2004-12-27 18:39) [0]

Удалено модератором
Примечание: ban

← →
Profi © (2004-12-27 18:40) [1]

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

← →
Sashok (2004-12-27 18:44) [2]

Profi ©
А как воплотить в жизнь то что вы написали.

← →
Vasya.ru © (2004-12-27 18:46) [3]

читать книжки и учиться, учиться и еще раз учиться

← →
Profi © (2004-12-27 18:49) [4]

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

← →
Sashok (2004-12-27 18:50) [5]

Я читаю но видимо не достаточно.Но как это сделать то?

← →
Sashok (2004-12-27 18:51) [6]

Profi ©
Лучше второй.

← →
Profi © (2004-12-27 18:56) [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;

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

← →
Profi © (2004-12-27 18:57) [8]

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

← →
Sashok (2004-12-27 19:16) [9]

Profi ©
Огромное человеческое спасибо!

← →
Пат (2004-12-27 19:40) [10]

Не рандомом
----------------------------------------
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;
--------------------------------------------------------------
Размышляй...

← →
Пат (2004-12-27 19:58) [11]

А если рандомом то еще проще:

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)];

> Sashok (27.12.04 18:39)

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

> [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.

Помогите пожалуйста! Найти похожие ветки