Changeset 432 for Common/UMemory.pas
- Timestamp:
- Oct 25, 2012, 2:11:47 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/UMemory.pas
r405 r432 24 24 constructor Create; 25 25 destructor Destroy; override; 26 procedure WriteMemory(Position: Integer; Memory: TMemory);27 procedure ReadMemory(Position: Integer; Memory: TMemory);28 26 property Data: PByte read FData; 29 27 property Size: Integer read FSize write SetSize; … … 110 108 end; 111 109 112 procedure TMemory.WriteMemory(Position: Integer; Memory: TMemory);113 begin114 Move(Memory.FData, PByte(@FData + Position)^, Memory.Size);115 end;116 117 procedure TMemory.ReadMemory(Position: Integer; Memory: TMemory);118 begin119 Move(PByte(@FData + Position)^, Memory.FData, Memory.Size);120 end;121 122 110 end. 123 111
Note:
See TracChangeset
for help on using the changeset viewer.