Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
2-1223451464
9899100
2008-10-08 11:37
2008.11.16
XLS c паролем :(


2-1223030460
Развёртка
2008-10-03 14:41
2008.11.16
Переключение раскладки клавиатуры в TurboPascal


2-1223031850
workbench
2008-10-03 15:04
2008.11.16
выделение текста


2-1223374553
AlekseyB
2008-10-07 14:15
2008.11.16
Как посчитать сумму


15-1221421091
{RASkov}
2008-09-14 23:38
2008.11.16
Организация малой сети