Тема: pointer
Показать сообщение отдельно
  #16  
Старый 04.08.2010, 08:30
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от mtp
И ещё один вопрос, как из области памяти получить/присвоить значение определенного байта, имея лишь указатель на область и зная ее размер, без использвания массивов?
в коде нет желания разбираться, а про второй вопрос:
Код:
var
   pnt: Pointer;
...
   PByte(pnt)^ := $1F;
   PWord(pnt)^ := $A8B1;
   PCardinal(pnt)^ := $FFFFFFFF;
   PByte(Cardinal(pnt)+4)^ := $AB; //присвоение со смещением
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;