| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

memo [D5, Win95/98]

Samvel ©   (2002-06-12 23:24:00) 

Подскажите пожалуйста как в мемо по курсору вставить текст
заранее спасибо

---

VID   (2002-06-13 01:20:00) [1]

Memo1.SelText := "Your TEXT";

---

Samvel   (2002-06-13 01:17:00) [2]

пробовал - неполучаеться

---

Guerrillero Che   (2002-06-13 00:01:00) [3]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin
s:=Memo1.Text;
i:=Memo1.SelStart;
Insert(edit1.Text,s,i+1);
Memo1.Text:=s;
end;

вставляем в позицию курсора текст из Edit

---

Наверх