Сохранение выделения memo
Ребят привет. Самостоятельно разобрался с методом компонента Tmemo.
А именно, меня интересовало сохранение выделения. Для реализации необходимо объявить переменную buf типа PAnsiChar – указатель.
Вот код.
Var //Описание переменных которые будем использовать.
Form1: TForm1;
buf :PAnsiChar; //Переменная указатель.
implementation
procedure TForm1.Button1Click(Sender: TObject);//Весь код я прописал по клику на кнопку
begin
memo1.SetFocus; //Установка фокуса.
memo1.SelStart := 1; //Начало выделения
Memo1.SelLength := 100; //Длинна выделения.
getmem (buf,200); //Резервирование памяти. Это ключевой момент, не зарезервировав память, ничего не выйдет.
Memo1.GetSelTextBuf(buf,20); //Метод сохранения выделения в буфер.
ShowMessage (buf) //Вывод значения которое сохранено в памяти.
st := buf; //Присваивание значения строковому типу
ShowMessage (st[1]); //Вывод первого символа переменной строкового типа.
end;
end.
Теоретически всё должно быть понятно. Сам наступил на грабли когда не резервировал память для переменной (процедура freemem).
Спасибо.
Артём Зайцев
