|
#16
|
||||
|
||||
Цитата:
Код:
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; |