Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.73/26: Рейтинг темы: голосов - 26, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 06.02.2014
Сообщений: 4
1

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

06.02.2014, 14:07. Показов 4782. Ответов 14
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Здравствуйте, уважаемые форумчане! Подскажите пожалуйста:

Копирую текст. Вставляю в своей программе в поле RichEdit.
Текст вставляется, но к нему в конце добавляется переход на новую строку.
Как это убрать, без потери форматирования текста? Спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.02.2014, 14:07
Ответы с готовыми решениями:

Как убрать перенос строки в RichEdit
Почему этот кусок кода не помогает? Chat->Text.Delete(Chat->Text.LastDelimiter("\n"), 1); Или я...

Как убрать панель буфера обмена
Надоела эта панелька, которая появляется по Ctrl+c+c (пользуюсь этой комбинацией в Lingvo). В...

В поле RichEdit удалить html-теги; при вставке в RichEdit замена старого текста на новый
Всем привет! помогите пожалуйста с написание кода на две процедуры : - В поле RichEdit удалить...

Взять текст из буфера обмена и поместить его в RichEdit
Только начал изучать C++. Посмотрите, что не так? void __fastcall TForm1::Button3Click(TObject...

14
пофигист широкого профиля
4755 / 3190 / 861
Регистрация: 15.07.2013
Сообщений: 18,461
06.02.2014, 14:24 2
Цитата Сообщение от grey-ru Посмотреть сообщение
Копирую текст. Вставляю в своей программе в поле RichEdit.
Текст вставляется, но к нему в конце добавляется переход на новую строку.
Так зачем тогда копируешь вместе с текстом перевод строки если он не нужен?
0
0 / 0 / 0
Регистрация: 06.02.2014
Сообщений: 4
06.02.2014, 14:31  [ТС] 3
Текст, который содержится в RichEdit копируется в буфер по нажатии на кнопку
Delphi
1
2

RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
дальше открывается окно которое было активным до моей программы и в нее вставляется этот текст. Все отлично работает, но вставляется этот лишний перенос. При вставке в таблицы, ячейки увеличиваются, что печально...
0
15 / 15 / 2
Регистрация: 01.05.2012
Сообщений: 55
06.02.2014, 14:41 4
К сожалению, насколько я знаю, этого не избежать.
Для хранения текста в RichEdit используется TStringList который всегда заканчивает последнюю строку переводом
0
0 / 0 / 0
Регистрация: 06.02.2014
Сообщений: 4
06.02.2014, 15:02  [ТС] 5
А программно удалить его тоже нельзя? или программно нажать Backcpace? я пробовал добавлять код Backcpace (#8), а вставляется квадратик..

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

Delphi
1
2

keybd_event(VK_BACK, 0, 0, 0);
keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP, 0);
сробатывает только когда ричэдит активный, разумеется. значит надо по хэндлу фокус ему передавать как я понимаю? и то, наверно, может не всегда срабатывать?
0
15 / 15 / 2
Регистрация: 01.05.2012
Сообщений: 55
06.02.2014, 15:08 6
сделай просто Trim() - если текст нужен в программе, а если через GUI кудато тащить то ничего не поможет - только другие, более продвинутые, компоненты

А по поводу удаления последнего символа - это я тоже делал - удаляется последний символ текста и дальше ставится тот же перевод строки
Потому что в окне он считает, что перевода нет а при преобразовании он все равно добавляется
0
пофигист широкого профиля
4755 / 3190 / 861
Регистрация: 15.07.2013
Сообщений: 18,461
06.02.2014, 15:14 7
Цитата Сообщение от grey-ru Посмотреть сообщение
Текст, который содержится в RichEdit копируется в буфер по нажатии на кнопку
Delphi
1
2
3

  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=Length(RichEdit1.Text)-2;
  RichEdit1.CopyToClipboard;
1
15 / 15 / 2
Регистрация: 01.05.2012
Сообщений: 55
06.02.2014, 15:22 8
Цитата Сообщение от northener Посмотреть сообщение
Delphi
1
2
3

  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=Length(RichEdit1.Text)-2;
  RichEdit1.CopyToClipboard;
Это красиво, но толку мало будет, IMHO
в лучшем случае ничего не изменится
последний перевод строки не существует он добавляется TStringList
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32974 / 21287 / 8173
Регистрация: 22.10.2011
Сообщений: 36,561
Записей в блоге: 8
06.02.2014, 15:33 9
Delphi
1
2
3

Uses ClipBrd, StrUtils;
// ...
Clipboard.AsText := LeftStr(RichEdit1.Text, Length(RichEdit1.Text) - 2);
0
пофигист широкого профиля
4755 / 3190 / 861
Регистрация: 15.07.2013
Сообщений: 18,461
06.02.2014, 15:36 10
Цитата Сообщение от sedandrey Посмотреть сообщение
Это красиво, но толку мало будет, IMHO
в лучшем случае ничего не изменится
последний перевод строки не существует он добавляется TStringList
Сначала прочитай внимательно вопрос, потом хорошенько подумай, затем попробуй что придумал и только потом отвечай.
И не надо говорить что в стандартном виндовом контроле каким является ричэдит сидит дельфийский стринглист.
0
15 / 15 / 2
Регистрация: 01.05.2012
Сообщений: 55
06.02.2014, 19:26 11
без грубости, пожалуйста.
Может быть Вы слышали про VCL?
0
northener
06.02.2014, 20:09
  #12

Не по теме:

Цитата Сообщение от sedandrey Посмотреть сообщение
Может быть Вы слышали про VCL?
Не надо начинать столь издалека. Если я что-то сказал неправильно, скажите что именно.

0
15 / 15 / 2
Регистрация: 01.05.2012
Сообщений: 55
06.02.2014, 20:22 13
В Delphi нет понятия нативных контролов Windows - все предлагаемые контролы - обертки и надстройки над ними. Поэтому текст контрола хранится в списке и все действия продублированы.
А работать с нативными контролами позволяет библиотека KOL. Так же есть менее странные и продвинутые реализации...
0
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
пофигист широкого профиля
4755 / 3190 / 861
Регистрация: 15.07.2013
Сообщений: 18,461
06.02.2014, 21:21 15
Цитата Сообщение от sedandrey Посмотреть сообщение
В Delphi нет понятия нативных контролов Windows - все предлагаемые контролы - обертки и надстройки над ними. Поэтому текст контрола хранится в списке и все действия продублированы.
А работать с нативными контролами позволяет библиотека KOL. Так же есть менее странные и продвинутые реализации...
Вот именно что обертки. Поэтому текст контрола хранится только в самом контроле и никаких дублей-списков нет. И все действия с TRichEditStrings сводятся к посылке контролу EM_xxx сообщений.
0
06.02.2014, 21:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 06.02.2014, 21:21
Помогаю со студенческими работами здесь

Как убрать пробел в конце каждой строки при записи этих строк в файл?
Добрый вечер Добавляю строки в текстовый файл при помощи echo В результате скрипт должен найти...

Убрать диалоговое окно очистки буфера обмена
Помогите пожалуйста! Мне нужно очистить в Exel буфер обмена данными без появления диалогового окна...

Убрать хранение истории в менеджере буфера обмена
Доброго времени суток, форумчане! Вот какая дилемма со мной приключилось: Стоит у меня Ubuntu...

Перенос данных между документами без использования буфера обмена
Имеется word-файл-шаблон, в который вставлены DocVariable(ы), Холсты, Закладки и т.п.. В открытом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru