PChar and Null-terminator

← →
Hog (2003-06-11 09:47) [0]

Подскажите пожалуйста, почему если я вызываю PChar в функции с var
параметром

GetMem(P,SizeOf(Str));
Func(P^);
RichEdit1.Lines.Add(P);

Получаю строку и на конце "I am gonna get youђ"

А если
S:String;
P:PCHar;

P:=Pchar(S);

Все нормально.

Ведь дельфи должна нулевой символ в конец добавлять, ну хорошо,
даже если она не добавила откуда на конце ђ, я ведь задал строку
размера "I am gonna get you" и больше ничего...

← →
Крот © (2003-06-11 10:19) [1]

Нулевой символ надо добавлять самому

P: PChar;
Size: integer;//Длина строки, кол-во символов

P := PChar(AllocMem(Size) + 1);
(P + Size)^ := #0;

← →
Hog (2003-06-11 12:23) [2]

> P := PChar(AllocMem(Size) + 1);

Не понял этой строки, зачем приводить к типу PChar - AllocMem(Size)

← →
MBo © (2003-06-11 12:24) [3]

SizeOf(Str) - так не делай!

← →
Palladin © (2003-06-11 12:31) [4]

> Hog (11.06.03 12:23)

StrAlloc тебе поможет, PChar это хоть и указатель, но для корректной работы необходимо использовать предназначеные для этого типа функции

← →
Anatoly Podgoretsky © (2003-06-11 12:53) [5]

И так делать не надо (P + Size)^ := #0;а то будет str+бред+#0

> Anatoly Podgoretsky © (11.06.03 12:53)

Я перед тем как написать ответ все это проделал. Никаких проблем, все работает.

> Hog (11.06.03 12:23)

Так ведь AllocMem возвращает Pointer.

>SizeOf(Str) - так не делай!
- ну если Str: ShortString - то вполне можно
> P := PChar(AllocMem(Size ) + 1);
- P := PChar(AllocMem(Size + 1));

а воообще, у тебя ошибка в Func, в 17-ой строке

PChar and Null-terminator Найти похожие ветки