Главная страница
    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.44 MB
Время: 0.007 c
3-95695
sdram
2002-08-08 16:29
2002.08.29
Как добавить запись с пустыми полями?


8-95912
som
2002-04-22 13:33
2002.08.29
PCX - файлы...


1-95800
Butcher
2002-08-20 01:35
2002.08.29
TCanvas.RecText (Текст прижать к правом краю)


3-95705
nikolo
2002-08-05 11:03
2002.08.29
Как пользоваться File Mapping?


3-95652
Не зарегистрированный чайник
2002-08-07 23:17
2002.08.29
Выборка данных!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский