Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Внизmemo Найти похожие ветки
← →
Samvel (2002-06-12 23:24) [0]Подскажите пожалуйста как в мемо по курсору вставить текст
заранее спасибо
← →
Guerrillero Che (2002-06-13 00:01) [1]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
← →
Samvel (2002-06-13 01:17) [2]пробовал - неполучаеться
← →
VID (2002-06-13 01:20) [3]Memo1.SelText := "Your TEXT";
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c