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

made in programmersforum 3

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

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

18th
Июл

Вывод текста из файла случайным образом

Posted by Chas under Пост-обзор

Нужно выводить текст который в разделителях # из txt файла случайным образом. Пример содержания txt файла:
#
текст1
текст1
текст1
#
….
….
#

spamer:
Если правильно понял, то как-то…вроде работает:

procedure TForm1.Button3Click(Sender: TObject);

var

  str: TStringList;

  mas: array of Integer;

  i, _begin, _end: Integer;

begin

  str := TStringList.Create;

  try

    str.LoadFromFile('olo.txt');

    SetLength(mas, 1);

    for i := 0 to str.Count - 1 do

    begin

      if str.Strings = '#' then

      begin

        mas[Length(mas) - 1] := i;

        SetLength(mas, Length(mas) + 1);

      end;

    end;

    SetLength(mas, Length(mas) - 1);
  Randomize;

  i := Random(High(mas));

  _begin := mas + 1;

  _end := mas - 1;
  for i := _begin to _end do

    Memo1.Lines.Add(str.Strings);
  Memo1.Lines.Add('                ');

  finally

    FreeAndNil(str);

  end;

end;