Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

DJ_UZer (2008-06-29 11:09:00) [1]
Спасибо всмем! Дальше я сам разберусь!

Leonid Troyanovsky (2008-06-29 08:56:00) [2]

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

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

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

--
Regards, LVT.

{RASkov} (2008-06-29 07:30:00) [3]
> SelEnd приравниваем к SelStart

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

Я - против (2008-06-29 04:20:00) [4]
SelEnd приравниваем к SelStart, дальше SendMessage(Memo.Handle, EM_REPLACESEL, 0, pchar('траляля'));

Loginov Dmitry (2008-06-29 00:04:00) [5]
> нужно чтобы текст добавлялся именно там где курсор, а не
> новую линию

TMemo.SelText ?

DJ_UZer (2008-06-28 23:33:00) [6]
Нет же ребят, мне нужно чтобы текст добавлялся именно там где курсор, а не новую линию..

Тын-Дын (2008-06-28 15:03:00) [7]

> DJ_UZer © (28.06.08 03:29)

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

Anatoly Podgoretsky (2008-06-28 11:05:00) [8]
> KSergey (28.06.2008 10:46:04) [4]

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

KSergey (2008-06-28 10:46:00) [9]
ага, у меян еще и ошибка синтаксиса.. ну и ладно.
Вот только я не знаю будет ли работать Ctrl-Z, но проверять лень

Anatoly Podgoretsky (2008-06-28 10:25:00) [10]
> DJ_UZer (28.06.2008 3:29:00) [0]

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

korneley (2008-06-28 09:04:00) [11]
memo1.text := memo1.text + #13#10'Ещё немножечко текста';Но [1] - лучше :)

KSergey (2008-06-28 08:53:00) [12]
ПО вопросу не очень понятно что есть "добавить текст в мемо"

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »