Как убрать перенос строки в конце RichEdit при вставке из буфера обмена

@grey-ru · Регистрация: 06.02.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане! Подскажите пожалуйста:

Копирую текст. Вставляю в своей программе в поле RichEdit.
Текст вставляется, но к нему в конце добавляется переход на новую строку.
Как это убрать, без потери форматирования текста? Спасибо!

@northener · 06.02.2014, 14:24

Сообщение от grey-ru

Копирую текст. Вставляю в своей программе в поле RichEdit.
Текст вставляется, но к нему в конце добавляется переход на новую строку.

Так зачем тогда копируешь вместе с текстом перевод строки если он не нужен?

@grey-ru · 06.02.2014, 14:31 **[ТС]**

Текст, который содержится в RichEdit копируется в буфер по нажатии на кнопку

Delphi

1 2	RichEdit1.SelectAll; RichEdit1.CopyToClipboard;

дальше открывается окно которое было активным до моей программы и в нее вставляется этот текст. Все отлично работает, но вставляется этот лишний перенос. При вставке в таблицы, ячейки увеличиваются, что печально...

@sedandrey · 06.02.2014, 14:41

К сожалению, насколько я знаю, этого не избежать.
Для хранения текста в RichEdit используется TStringList который всегда заканчивает последнюю строку переводом

@grey-ru · 06.02.2014, 15:02 **[ТС]**

А программно удалить его тоже нельзя? или программно нажать Backcpace? я пробовал добавлять код Backcpace (#8), а вставляется квадратик..

Добавлено через 18 минут
а так

Delphi

1 2	keybd_event(VK_BACK, 0, 0, 0); keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP, 0);

сробатывает только когда ричэдит активный, разумеется. значит надо по хэндлу фокус ему передавать как я понимаю? и то, наверно, может не всегда срабатывать?

@sedandrey · 06.02.2014, 15:08

сделай просто Trim() - если текст нужен в программе, а если через GUI кудато тащить то ничего не поможет - только другие, более продвинутые, компоненты

А по поводу удаления последнего символа - это я тоже делал - удаляется последний символ текста и дальше ставится тот же перевод строки
Потому что в окне он считает, что перевода нет а при преобразовании он все равно добавляется

@northener · 06.02.2014, 15:14

Сообщение от grey-ru

Текст, который содержится в RichEdit копируется в буфер по нажатии на кнопку

Delphi

1
2
3

  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=Length(RichEdit1.Text)-2;
  RichEdit1.CopyToClipboard;

@sedandrey · 06.02.2014, 15:22

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

Delphi

1
2
3

  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=Length(RichEdit1.Text)-2;
  RichEdit1.CopyToClipboard;

Это красиво, но толку мало будет, IMHO
в лучшем случае ничего не изменится
последний перевод строки не существует он добавляется TStringList

@volvo · 06.02.2014, 15:33

Delphi

1
2
3

Uses ClipBrd, StrUtils;
// ...
Clipboard.AsText := LeftStr(RichEdit1.Text, Length(RichEdit1.Text) - 2);

@northener · 06.02.2014, 15:36

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

Это красиво, но толку мало будет, IMHO
в лучшем случае ничего не изменится
последний перевод строки не существует он добавляется TStringList

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

И не надо говорить что в стандартном виндовом контроле каким является ричэдит сидит дельфийский стринглист.

@sedandrey · 06.02.2014, 19:26

без грубости, пожалуйста.
Может быть Вы слышали про VCL?

@northener · 06.02.2014, 20:09

Не по теме:

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

Может быть Вы слышали про VCL?

Не надо начинать столь издалека. Если я что-то сказал неправильно, скажите что именно.

@sedandrey · 06.02.2014, 20:22

В Delphi нет понятия нативных контролов Windows - все предлагаемые контролы - обертки и надстройки над ними. Поэтому текст контрола хранится в списке и все действия продублированы.
А работать с нативными контролами позволяет библиотека KOL. Так же есть менее странные и продвинутые реализации...

@grey-ru · 06.02.2014, 20:49 **[ТС]**

Trim преобразует содержимое RichEdit в строку, форматирование текста теряется.

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

Uses ClipBrd, StrUtils;
// ...
Clipboard.AsText := LeftStr(RichEdit1.Text, Length(RichEdit1.Text) - 2);

-в этом случае тоже от rtf ничего не остается, ведь "AsText".

Остановился на варианте с выделением:

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

RichEdit1.SelStart:=0;
RichEdit1.SelLength:=Length(RichEdit1.Text)-2;
RichEdit1.CopyToClipboard;

Работает. Всем спасибо за отзывчивость!
northener отдельное Спасибо!
p.s. Извините, что отсутствовал, пишу с работы.AsText

@northener · 06.02.2014, 21:21

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

В Delphi нет понятия нативных контролов Windows - все предлагаемые контролы - обертки и надстройки над ними. Поэтому текст контрола хранится в списке и все действия продублированы.
А работать с нативными контролами позволяет библиотека KOL. Так же есть менее странные и продвинутые реализации...

Вот именно что обертки. Поэтому текст контрола хранится только в самом контроле и никаких дублей-списков нет. И все действия с TRichEditStrings сводятся к посылке контролу EM_xxx сообщений.

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,483
	06.02.2014, 15:36	10
	Сообщение от sedandrey Это красиво, но толку мало будет, IMHO в лучшем случае ничего не изменится последний перевод строки не существует он добавляется TStringList Сначала прочитай внимательно вопрос, потом хорошенько подумай, затем попробуй что придумал и только потом отвечай. И не надо говорить что в стандартном виндовом контроле каким является ричэдит сидит дельфийский стринглист. 0

@sedandrey 15 / 15 / 2 Регистрация: 01.05.2012 Сообщений: 55
	06.02.2014, 19:26	11
	без грубости, пожалуйста. Может быть Вы слышали про VCL? 0

@sedandrey 15 / 15 / 2 Регистрация: 01.05.2012 Сообщений: 55
	06.02.2014, 20:22	13
	В Delphi нет понятия нативных контролов Windows - все предлагаемые контролы - обертки и надстройки над ними. Поэтому текст контрола хранится в списке и все действия продублированы. А работать с нативными контролами позволяет библиотека KOL. Так же есть менее странные и продвинутые реализации... 0

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@grey-ru 0 / 0 / 0 Регистрация: 06.02.2014 Сообщений: 4
		1
	Как убрать перенос строки в конце RichEdit при вставке из буфера обмена 06.02.2014, 14:07. Показов 4816. Ответов 14 Метки нет (Все метки) Здравствуйте, уважаемые форумчане! Подскажите пожалуйста: Копирую текст. Вставляю в своей программе в поле RichEdit. Текст вставляется, но к нему в конце добавляется переход на новую строку. Как это убрать, без потери форматирования текста? Спасибо! 0

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,483
	06.02.2014, 14:24	2
	Сообщение от grey-ru Копирую текст. Вставляю в своей программе в поле RichEdit. Текст вставляется, но к нему в конце добавляется переход на новую строку. Так зачем тогда копируешь вместе с текстом перевод строки если он не нужен? 0

@sedandrey 15 / 15 / 2 Регистрация: 01.05.2012 Сообщений: 55
	06.02.2014, 14:41	4
	К сожалению, насколько я знаю, этого не избежать. Для хранения текста в RichEdit используется TStringList который всегда заканчивает последнюю строку переводом 0

@sedandrey 15 / 15 / 2 Регистрация: 01.05.2012 Сообщений: 55
	06.02.2014, 15:08	6
	сделай просто Trim() - если текст нужен в программе, а если через GUI кудато тащить то ничего не поможет - только другие, более продвинутые, компоненты А по поводу удаления последнего символа - это я тоже делал - удаляется последний символ текста и дальше ставится тот же перевод строки Потому что в окне он считает, что перевода нет а при преобразовании он все равно добавляется 0

@northener
	06.02.2014, 20:09 #12
	Не по теме: Сообщение от sedandrey Может быть Вы слышали про VCL? Не надо начинать столь издалека. Если я что-то сказал неправильно, скажите что именно. 0

@grey-ru 0 / 0 / 0 Регистрация: 06.02.2014 Сообщений: 4
	06.02.2014, 20:49 [ТС]	14
	Trim преобразует содержимое RichEdit в строку, форматирование текста теряется. Сообщение от UI Uses ClipBrd, StrUtils; // ... Clipboard.AsText := LeftStr(RichEdit1.Text, Length(RichEdit1.Text) - 2); -в этом случае тоже от rtf ничего не остается, ведь "AsText". Остановился на варианте с выделением: Сообщение от northener RichEdit1.SelStart:=0; RichEdit1.SelLength:=Length(RichEdit1.Text)-2; RichEdit1.CopyToClipboard; Работает. Всем спасибо за отзывчивость! northener отдельное Спасибо! p.s. Извините, что отсутствовал, пишу с работы.AsText 0

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,483
	06.02.2014, 21:21	15
	Сообщение от sedandrey В Delphi нет понятия нативных контролов Windows - все предлагаемые контролы - обертки и надстройки над ними. Поэтому текст контрола хранится в списке и все действия продублированы. А работать с нативными контролами позволяет библиотека KOL. Так же есть менее странные и продвинутые реализации... Вот именно что обертки. Поэтому текст контрола хранится только в самом контроле и никаких дублей-списков нет. И все действия с TRichEditStrings сводятся к посылке контролу EM_xxx сообщений. 0