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

Вниз

PChar   Найти похожие ветки 

 
unfam ©   (2002-08-19 03:11) [0]

Здравствуйте, объясните пожалуйста мне, дурню, почему, когда я присваиваю размещенной переменной типа PChar некое строковое значение, последующий вызов FreeMem сообщает об "Invalid pointer operation". Без оного все нормально.

var
Cnt:Integer;
StrSrc:PChar;
begin
Cnt:=Length("бла-бла");
GetMem(StrSrc,Cnt);
StrSrc:="бла-бла";
FreeMem(StrSrc);
end;

Пробовал с StrAlloc(StrNew) - StrDispose. Результат тот же.


 
Suntechnic ©   (2002-08-19 03:28) [1]

Если нормальным русским языком написать, то ты делаешь примерно следующее.
StrSrc:PChar;
Создал указатель на строку.
GetMem(StrSrc,Cnt);
Разместил по этому указателю память рамером 7 байт. Теперь твой указатель указывает на эту область памяти.
StrSrc:="бла-бла";
Теперь ты говоришь указателю: дорогой указатель, ты теперь указываешь не на область памяти которую я тебе только что выделил, а на строковый литерал "бла-бла" который был размещён компилятором где-то в памяти и по своей сути является константой.
FreeMem(StrSrc);
А теперь ты говоришь, а грохни ко мне память по тому адресу, где находится этот константный строковой литерал.

Ну и финал: программа естественно матерится, а кому бы это понравилось?


 
unfam ©   (2002-08-19 03:37) [2]

Спасибо :)


 
Юрий Зотов ©   (2002-08-19 09:09) [3]

Еще один нюансец. Памяти надо выделять на 1 байт больше, чем длина будущей строки - ведь завершающий ноль тоже должен где-то поместиться.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
3-95721
SZap
2002-08-08 13:34
2002.08.29
Как сформировать запрос в TQuery


1-95842
Balu
2002-08-15 21:28
2002.08.29
MDI Form в DLL ошибка Can not assign TFont to TFont при OnHint


1-95892
Cr@sh
2002-08-18 17:12
2002.08.29
Как сделать фон текста в Image`e прозрачным?


1-95882
Андрусь
2002-08-13 20:34
2002.08.29
Помогите разобраться


3-95633
BJValentine
2002-08-09 13:24
2002.08.29
Delphi+DTS