Hi,
I am trying to implimenting the below code but there are showing error that is : "Argument can`t be assigned to ".
**Implimenting Code
-------------------------------------------------------
type Pbyte = ^Byte, Pword = ^Word, Pdword = ^LongWord;
function GetMem( addr: LongWord ) : Byte;
begin
var ptr : PByte;
ptr := PByte(addr)
GetMem := ptr^
end;
procedure SetMem( addr: LongWord; value: Byte );
begin
var ptr: PByte;
ptr := PWord(addr);
ptr^ := value
end;
-----------------------------------------------------
**And My code is shown below, where i want to implement the above code.
--------------------------------
BEGIN
MEMW[$B800:(width_offset-1)*2
+(height_offset-1)*160]:=current_locatio...
current_location:=current_location^.next...
END;
-----------------------------------
BEGIN
offset:=(top_left_x-1)*2
+(top_left_y-1)*160;
MEM[$B800:offset]:=top_left_corner[style...
MEM[$B800:offset+1]:=back*16+fore;
---------------------------------------...