Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.27;
Скачать: CL | DM;

Вниз

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

 
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("траляля"));


 
{RASkov} ©   (2008-06-29 07:30) [10]

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

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


 
Leonid Troyanovsky ©   (2008-06-29 08:56) [11]


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

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

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

--
Regards, LVT.


 
DJ_UZer ©   (2008-06-29 11:09) [12]

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



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

Текущий архив: 2008.07.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
4-1193402945
Dmitry_177
2007-10-26 16:49
2008.07.27
Работа с файлом на WinAPI


3-1202974636
abhtr
2008-02-14 10:37
2008.07.27
Можно ли изменить название поля в таблице Paradox


2-1214307585
Новичок
2008-06-24 15:39
2008.07.27
Помогите плиз связать TDBGrid с Timage и мини-просмотрщиком!!!!!


6-1191213910
VitGun
2007-10-01 08:45
2008.07.27
Блокировка диалоговых окон в TWebBrowser


1-1196142387
Kolan
2007-11-27 08:46
2008.07.27
Как в InnoSetUp настроить ярлыки на опр. файл?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский