
16.01.2011, 20:14
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Цитата:
Сообщение от AleXXXSC
Подскажите, пожалуйста, что не правлильно я делаю.
|
Код:
var
MS : TMemoryStream;
pS : PChar;
S : String;
Stub : DWORD;
begin
...
MS.ReadBuffer(Stub,4);
GetMem(pS,33);
MS.readBuffer(pS^,32);
S := StrPas(pS);
FreeMem(pS,33);
...
как-то так. С крышкой (^) надо проверить - нужна ли она...
|