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

Вниз

Обработка WM_SETTEXT   Найти похожие ветки 

← →
alexnmsk   (2008-10-07 14:32) [0]

Добрый день. Делаю обработку сообщение WM_SETTEXT для того, чтобы заменить символы табуляции на "->"

procedure TSyntMemo.WMSetText(var Message: TWMSetText);
var
 S: String;
begin
 if Message.Text=nil Then Exit;
 if Message.Text="" Then Exit;
 S:=AnsiReplaceText(String(Message.Text), #9, "->");
//  StrDispose(Message.Text);
 GetMem(Message.Text,Length(S)+1);
 StrCopy(Message.Text, PChar(S));
 inherited;
end;
В таком виде все работает. Вопрос - нужно ли освобождать память, занятую прошлым значением Message.Text, если да, то как?

---

← →
Григорьев Антон ©   (2008-10-07 14:45) [1]

Не нужно. Это толжен сделать тот, кто вызвал сообщение. А вот ту память, которую вы выделили с помощью GetMem, нужно освободить после inherited, иначе будет утечка.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.015 c