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

Вниз

Почему StrLen(PChar(Str:string)) возвращает 0 ?   Найти похожие ветки 

 
YeasU   (2004-11-03 13:28) [0]

И вообще, как узнать сколько места занимает структура на которую ссылается некоторый pointer?


 
begin...end ©   (2004-11-03 13:33) [1]


> как узнать сколько места занимает структура на которую ссылается
> некоторый pointer

Если есть просто нетипизированный указатель, и ничего больше не известно, то - никак.


 
Rem ©   (2004-11-03 13:38) [2]

Менеджер памяти должен об этом знать.

GetMem(p, size);
...
FreeMem(p); // тут же происходит корректное удаление, хоть размер и не указан


 
YeasU   (2004-11-03 13:49) [3]


procedure TForm1.COMPacket(Sender: TObject; Data: Pointer;
 Size: Integer);
var
 PBuffer:PChar;
begin
 PBuffer:=Data;
 ConvD(PBuffer,clRed);
end;

И если в procedure ConvD делать StrLen(PBuffer:PChar) то говорит, что 0...


 
Reindeer Moss Eater ©   (2004-11-03 13:55) [4]

Правду говорит


 
YeasU   (2004-11-03 13:59) [5]


> Reindeer Moss Eater ©   (03.11.04 13:55) [4]

Я почему то не думал, что он мне будет врать ;)
Почему?


 
Reindeer Moss Eater ©   (2004-11-03 14:02) [6]

Что почему?
Почему не врет или почему ноль?


 
YeasU   (2004-11-03 14:13) [7]


> Reindeer Moss Eater ©   (03.11.04 14:02) [6]

Ну ладно издеваться то...
Или мне надо сделать так =>
procedure TForm1.COMPacket(Sender: TObject; Data: Pointer;
Size: Integer);
var
PBuffer:PChar;
begin
PBuffer:=Data;
ConvD(PBuffer,Size,clRed);
end;

Procedure ConvD(Data:PChar;Size;Color:TColor);
var
 PData:PChar;
begin
 ...
 GetMem(PData,Size);
 PData:=Data;
 PLen:=StrLen(PData);
 ...
 FreeMem(PData);
 ...
end;

 Хотя по-моему это что то не то...


 
Reindeer Moss Eater ©   (2004-11-03 14:16) [8]

Ну и что из этого?
Если возвращает ноль, значит первый же байт, на который указывает PData имеет значение $00


 
Reindeer Moss Eater ©   (2004-11-03 14:19) [9]

GetMem(PData,Size);
PData:=Data;


Гениально.



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

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

Наверх




Память: 0.48 MB
Время: 0.038 c
8-1092507702
k-sergey
2004-08-14 22:21
2004.11.21
Как поменять шрифт Hint-ов?


4-1097598256
Сергей К.
2004-10-12 20:24
2004.11.21
Помогите с Hook разобраться


14-1099360771
Sus
2004-11-02 04:59
2004.11.21
Кто?


1-1099745788
bloodman
2004-11-06 15:56
2004.11.21
Как сделать так, чтобы при перетаскивании формы по экрану...


10-1064222085
O'nil
2003-09-22 13:14
2004.11.21
Многопользовательский доступ к БД