Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

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


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]

Спасибо!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-94416           ListView              2002-04-17 19:42  2002.04.29  
Как в ЛистВиеве при щелчке на каком нибуть итемсе получить егоимя


3-94291           B_A_V                 2002-04-08 18:39  2002.04.29  
Помогите пожалуйста разобраться, бьюсь уже целые сутки над создан


1-94392           volodya_              2002-04-17 17:53  2002.04.29  
Help


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


3-94337           agrig                 2002-04-09 21:55  2002.04.29  
Помогите написать запрос с суммированием!