Добавление текста в мемо

← →
DJ_UZer © (2008-06-28 03:29) [0]

Привет всем, я уже задавал данный вопрос, как добавить какой то определенный текст в memo1? думал разберусю а ничего не вышло, точнее вышло вот это:
n := memo1.SelStart;
s := memo1.Text;
insert("Текст",s,memo1.SelStart+1);
memo1.Text := s;
memo1.SelStart := n+5;
По моему это полная чушь, нужно как то по другому, чтобы еще и запоминал в действиях (CTR+Z), думал может есть стандартная функция или процедура, ну ничго не нашел.. Пожалуйста помогите...

← →
KSergey © (2008-06-28 08:53) [1]

ПО вопросу не очень понятно что есть "добавить текст в мемо"

например так подойдет?

memo1.Lines.Add(Добавленный текст");

← →
korneley © (2008-06-28 09:04) [2]

memo1.text := memo1.text + #13#10"Ещё немножечко текста"; Но [1] - лучше :)

← →
Anatoly Podgoretsky © (2008-06-28 10:25) [3]

> DJ_UZer (28.06.2008 3:29:00) [0]

Конечно ерунда, но советы еще большая ерунда. Ctrl+V

← →
KSergey © (2008-06-28 10:46) [4]

ага, у меян еще и ошибка синтаксиса.. ну и ладно.
Вот только я не знаю будет ли работать Ctrl-Z, но проверять лень

← →
Anatoly Podgoretsky © (2008-06-28 11:05) [5]

> KSergey (28.06.2008 10:46:04) [4]

После Ctrl+V Ctrl-Z должен работать.
Ну а если самому проверять лень, то найми человека, а не расчитывай на форумную халяву.

← →
Тын-Дын © (2008-06-28 15:03) [6]

> DJ_UZer © (28.06.08 03:29)

Из топика не видно четкой формулировки проблемы и цели.
После того, как сформулируешь - половина вопросов по реализации отпадёт сама собой.

← →
DJ_UZer © (2008-06-28 23:33) [7]

Нет же ребят, мне нужно чтобы текст добавлялся именно там где курсор, а не новую линию..

← →
Loginov Dmitry © (2008-06-29 00:04) [8]

> нужно чтобы текст добавлялся именно там где курсор, а не
> новую линию

TMemo.SelText ?

← →
Я - против (2008-06-29 04:20) [9]

SelEnd приравниваем к SelStart, дальше SendMessage(Memo.Handle, EM_REPLACESEL, 0, pchar("траляля"));

> SelEnd приравниваем к SelStart

Не нужно ничего никуда приравнивать, а просто
Memo.SelText:="NewText";
т.е. тот же самый SendMessage из [9]....
Если был выделен текст, то он заменится на "новый", иначе будет вставлен в позицию каретки....
Стандартное поведение... только нужно undo еще как-то "прикрутить" сюда...:)

> {RASkov} © (29.06.08 07:30) [10]

> Стандартное поведение... только нужно undo еще как-то "прикрутить"
> сюда...:)

SendMessage(Memo1.Handle, EM_REPLACESEL, 1, LParam(pchar("траляля")));

--
Regards, LVT.

Спасибо всмем! Дальше я сам разберусь!

Добавление текста в мемо Найти похожие ветки