Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
1-95773
Lamer86
2002-08-19 16:18
2002.08.29
Как склеить два файла


1-95799
ga3
2002-08-19 05:58
2002.08.29
Задачка для математиков или близких к ним


1-95889
Tahion
2002-08-17 09:56
2002.08.29
как можно програмно создать ПОДПУНКТ TreeView?


3-95634
SerVS
2002-08-09 14:52
2002.08.29
Работа с Excel через ADO


4-96015
Dr.Karter
2002-06-25 16:04
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский