Скачать: CL | DM;

Как заменить выделенный текст в memo?   Найти похожие ветки 

← →
ssa   (2007-06-25 02:47) [0]

Необходимо выделенный текст заменить на другой. Допустим среди текста пользователь выделяет 1 слово ( "слово" ), нажав на кнопку это слово должно замениться на "<br>слово</br>"
Спасибо!

---

← →
Юрий Зотов ©   (2007-06-25 08:08) [1]

Copy - дает подстроку заданной длины начиная с заданной позиции.
SelStart - позиция начала выделенного текста.
SelLength - длина выделенного текста.
Length - длина строки.
Text - текст в Memo.

Что нужно сделать:
Memo.Text := Copy(...) + "<br>" + Copy(...) + "</br>" +Copy(...);

И получим то, что хочется. А что написать в параметрах Copy - это уж Вы подумайте сами. Список всего, что там нужно см.выше.

---

← →
Babay ©   (2007-06-25 08:20) [2]

Так это, а SelText не подходит?

---

← →
Юрий Зотов ©   (2007-06-25 08:25) [3]

Гм... и правда... забыл про него... а проще получится...
:о)

---

← →
ssa   (2007-06-25 11:34) [4]

спасибо!

---

← →
antonn ©   (2007-06-25 13:19) [5]

оффтоп: эх, если бы и в яваскрипте все было так просто и работало везде... :)

---

← →
TStas ©   (2007-06-25 21:13) [6]

>antonn Вот я как раз с форума скрипт, который именно это и делает содрал, любопытсва ради

---

← →
Tack ©   (2007-06-27 14:59) [7]


procedure InsertText(Edit: TMemo; Text: String);
begin
 Edit.Perform(EM_REPLACESEL, 0, Integer(PChar(Text)));
 Edit.SelStart := Edit.SelStart + Length(Text);
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c