Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

Подскажите, что я не так делаю...   Найти похожие ветки 

 
LazyCat ©   (2002-04-17 17:38) [0]

Подскажите, что я не так делаю

var
m,m1 : PChar;

Begin
getmem(m,Length(Msg)+1);
getmem(m1,Length(Msg)+1);
m := PChar(Msg);
CharToOEM(m,m1);
Msg := String(m1);
FreeMem(m,Length(Msg)+1); <- Тут ругается на Invalid pointer operation.
FreeMem(m1,Length(Msg)+1);
end;

Ведь если я выделил память, я её должен освободить. Чего ей надо? Или я чего-то не понял?
пробовал CharToOEM(PChar(Msg),PChar(Msg)); Тогда периодически ругается на USER32.DLL


 
Игорь Шевченко ©   (2002-04-17 17:47) [1]

День добрый,

Сначала у вас переменной m присваивается значение в

> getmem(m,Length(Msg)+1);


а потом это значение затирается

> m := PChar(Msg);


Чего же вы ожидали ?

Надо делать StrCopy(m, PChar(Msg)) и будет вам счастье...

С уважением,


 
LazyCat ©   (2002-04-17 17:53) [2]

Спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
3-94265
cranium
2002-04-07 20:36
2002.04.29
Список пользователей базы InterBase


6-94534
William
2001-12-20 23:21
2002.04.29
NMHTTP отсылка данных в форму : метод POST


14-94555
Tsatur Soft
2002-03-19 21:57
2002.04.29
Поиск по реестру


1-94512
Коля
2002-04-17 06:43
2002.04.29
Чвета в RichEdit Помогите!


1-94469
Pit
2002-04-09 11:10
2002.04.29
Загрузка результата селекта в Excel