Брать рандомный текст из файла

[UKRtortik]

Как из txt загруженного в OpenDialog брать рандомную строку и занести её в переменную REG

[northener]

Сообщение от UKRtortik

Как из txt загруженного в OpenDialog брать рандомную строку и занести её в переменную REG

Загрузить файл в TStringList и с помощью функции Random выбирать номер строки.

[FaTaL]

Только в OpenDialog файл не грузится. Там хранится только путь к файлу.

[phomm]

Судя по всем Вашим темам, Вам настоятельно рекомендуется пройти обучение.

[STRELOK-2007]

Как-то так наверное =)

var
 Strings: TStringList;
 i: Integer;
 reg: WideString;
begin
 if OpenDialoge.Execute then
  begin
   Strings:=TStringList.Create;
   Strings.LoadFromFile(OpenDialog1.FileName);
   
   Randomize;
   i:=Random(Strings.Count-1);
   
   reg:=Strings[i];
   
   FreeAndNill(Strings);
  end;
end;

[northener]

Тогда уж

i:=Random(Strings.Count);

[STRELOK-2007]

Сообщение от northener

Тогда уж

i:=Random(Strings.Count);

Допустим так.
Возьмем 10 элементов в стринглисте. Предположим, рандом вернул число 10. Что будет если обратиться к 10 элементу массива?

[northener]

Сообщение от STRELOK-2007

Допустим так.
Возьмем 10 элементов в стринглисте. Предположим, рандом вернул число 10.

У вас какой-то не тот рандом. Наш Random(10) возвращает числа в диапазоне 0..9

[IliaIT]

— : О некоторых программистах создается такое впечатление, что они и детей будут называть Ребенок_1, Ребенок_2 ...
— : Не-не-не, у настоящих программистов будут Ребенок_0, Ребенок_1 и т. д.