Показать сообщение отдельно
  #2  
Старый 16.01.2011, 20:14
lmikle lmikle вне форума
Модератор
 
Регистрация: 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);
  ...

как-то так. С крышкой (^) надо проверить - нужна ли она...
Ответить с цитированием