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

made in programmersforum 6

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

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

12th
Авг

Вывести любую строку из файла в Memo

Posted by micher under Delphi

Допустим есть Текстовый документ.txt, как мне открыть его где-то в памяти и рандомно выводить любой абзац в Memo. И все это по нажатии на кнопку?

Пепел Феникса



function GetRandomLine(SL:TStrings):string;

begin

 result:=SL[random(SL.Count)];

end;

Применяем.

Подготовка(FormCreate например)



var SL:TStringList;//глобальная

SL:=TStringList.Create;

SL.LoadFromFile('файл');

берем строку с него



Memo1.Lines.Text:=GetRandomLine(SL);

ну и уничтожаем стринг лист(форм дестрой например)



SL.Free;

Пост написан при поддержке Телемакс — интернет-магазин бытовой техники.

Компания «Телемакс» основана в Санкт-Петербурге в 2001 году.
На сегодняшний день 24 супермаркета электроники и бытовой техники «Телемакс» представлены в Санкт-Петербурге и еще
в 12 городах Северо-Западного и Центрального округов России.
Общая площадь магазинов составляет более 45 000 кв. м.

Применение самых современных стандартов выкладки и организации торгового пространства делает наши магазины удобными и приятными для совершения покупок, а новый фирменный стиль, разработанный в 2009 году британской компанией Brand Project International, дарит нашим покупателям хорошее настроение.

тема на форуме