[Иваська]

Добрый день. Скажите, можно ли совместить генератор случаных чисел Randomize или RandSeed (например такой:
procedure TForm1.Button1Click(Sender: TObject);

var RandSeed: LongInt;

begin

RandSeed:=random(10);

ShowMessage(IntToStr(RandSeed));

end с взятием данных из файла таким образом, чтобы из файла бралось случайное значение. При этом файл текстовый, а чтение использовать ReadLn, то есть чтобы читались не все строчки, а лишь одна случайная. Спасибо за помощ!!

[ApxaHGe1]

Сообщение от Иваська

с взятием данных из файла таким образом, чтобы из файла бралось случайное значение. При этом файл текстовый, а чтение использовать ReadLn, то есть чтобы читались не все строчки, а лишь одна случайная. Спасибо за помощ!!

Вот ...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

var   Form1: TForm1;   l_count:integer;   s_line:integer;   number:string;   g_number:integer;   implementation   {$R *.dfm} //Мемо можно заменить на TStringList ... как удобнее procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.LoadFromFile('Numbers.txt'); l_count:=memo1.Lines.Count; Randomize; s_line:=Random (l_count); number:=Memo1.Lines.Strings[s_line]; Randomize; g_number:=Random (StrToInt (number)); ShowMessage (IntToStr (g_number)); end;   end.

Исходник

[Страдалецъ]

Если предположить что на одну строку приходится одно значение, и поскольку читать мы можем только от начала к концу, то вижу такой вариант:

Код:

1 2 3 4 5 6 7

while not Eof(T) do begin     case Random(2)     of 0: ReadLn(T);         1: ReadLn(T, N);     end;     end;

[Иваська]

В файле возможно. Я хотел написать програмку чтобы слова учить Выводится из файла случаная строчка со словом, вводишь ответ и проверяется. Буду пробовать. Всем спасибо!!!