Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Май

Как из загруженного файла брать рандомную строку

Posted by Chas under Delphi

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;
   FreeAndNill(Strings);

  end;

end;