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

made in programmersforum 6

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

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

18th
Мар

Получить предложения из текста

Posted by Chas under Delphi

Если у нас есть, скажем, текст, размером 5 мегабайт, и нужно разрезать его предложения.Каждое предложение записывать. В какой компонент(стринглист, мемо?) их засовывать, чтобы выдержал и быстро все происходило?

3D Hunter
ЛУчше использовать для таких целей невизуальные компоненты. Возможный код:

procedure TForm1.FormCreate(Sender: TObject);

var

  LsTextList:TStringList;

begin

  LsTextList:=TStringList.Create;//создаем наш класс

  LsTextList.LineBreak:='.';//устанавливаем символ разделителя предложений

  LsTextList.LoadFromFile('d:\1.txt');//загружаем текст из файла, тут ваш путь к файлу

  LsTextList.Text:=StringReplace(LsTextList.Text,#13#10,'',[rfReplaceAll]);//убираем все переходы на новую строку, наш разделитель - символ '.'

  //можно отобразить в том же Memo?  уже 1й строчкой кода

  Memo1.Lines:=LsTextList;

end;

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