Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Манипуляции с Memo


Автор: BloodyElf 13.8.2005, 17:24
Здравствуйте, у меня вот возникло несколько вопросов:
1)Как скопировать то, что выделено в Memo?
2)Как вставить из буфера обмена в Memo?
3)Как найти слово или словосочетание в Memo?
4)Как выделить весь текст в Memo?
Заранее спасибо smile

Автор: Poseidon 13.8.2005, 17:55
BloodyElf? один топик, один вопрос!

Цитата(BloodyElf @ 13.8.2005, 17:24)
1)Как скопировать то, что выделено в Memo?
Выражайся по-подробней. Ctrl + C тебе может помочь? Если нет, то
Код

SendMessage (Memo1.Handle, WM_Copy, 0, 0);  
должно помочь

Цитата(BloodyElf @ 13.8.2005, 17:24)
2)Как вставить из буфера обмена в Memo?
Код
SendMessage (Memo1.Handle, WM_Paste, 0, 0); 


Цитата(BloodyElf @ 13.8.2005, 17:24)
3)Как найти слово или словосочетание в Memo?
Используй функцию pos.

Цитата(BloodyElf @ 13.8.2005, 17:24)
4)Как выделить весь текст в Memo?

Код
Memo1.SelLength:=Length(Memo1.Text)

Автор: BloodyElf 13.8.2005, 18:07
Большое спасибо!!! smile smile

Автор: Alex 13.8.2005, 18:13
Модератор: Пожалуйста, один топик - один вопрос.
Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27

Автор: BloodyElf 13.8.2005, 18:29
Кстати, выделить все в мемо можно еще вот так

Код

Memo1.SelectAll;

Добавлено @ 18:30
2Alex, понал, извините, больше не буду
smile

Автор: mvdr 14.8.2005, 07:34
Цитата(BloodyElf @ 13.8.2005, 18:24)
2)Как вставить из буфера обмена в Memo?

Memo1.Lines.PasteFromClipboard; // или что то типа того
Цитата(BloodyElf @ 13.8.2005, 18:24)
3)Как найти слово или словосочетание в Memo?

for i:=1 to length(Memo1.Text) do //ищем слово яблоко
if copy(Memo1.Text,i,6)='яблоко' then
begin
Edit1.Text:='яблоко';
ShowMessage('слово Яблоко найдено');
end;
Цитата(BloodyElf @ 13.8.2005, 18:24)
4)Как выделить весь текст в Memo?

уже сам нашел smile

Автор: Poseidon 14.8.2005, 11:58
Цитата(Femida @ 14.8.2005, 07:34)
for i:=1 to length(Memo1.Text) do //ищем слово яблоко
if copy(Memo1.Text,i,6)='яблоко' then
begin
Edit1.Text:='яблоко';
ShowMessage('слово Яблоко найдено');
end;


Femida, да ты чо?
Код
if pos('яблоко',Memo1.Text)<>0 then ShowMessage('слово Яблоко найдено');

Автор: mvdr 15.8.2005, 07:09
Poseidon, главное - работает smile, а остальное- не особо важно.

Автор: BloodyElf 15.8.2005, 14:41
Femida, Poseidon спасибо вам!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)