X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FBinEditor.pas;h=8a8e5321a63e78af6c5fb0232a571d8661fc8752;hb=955bce518d1ce6de18133b8ee19a6436aef174cd;hp=f59d4f3a5f2fb3c64fe748aecb963e133bf64441;hpb=88ce644db1b40111bdb380f4357fa59bdb5173be;p=d2df-sdl.git diff --git a/src/shared/BinEditor.pas b/src/shared/BinEditor.pas index f59d4f3..8a8e532 100644 --- a/src/shared/BinEditor.pas +++ b/src/shared/BinEditor.pas @@ -118,7 +118,7 @@ procedure ZeroMemory(Dest: Pointer; Len: Cardinal); begin FillChar(Dest^, Len, 0); end; - + { T B i n M e m o r y W r i t e r : } Constructor TBinMemoryWriter.Create(aSize: Cardinal); @@ -141,7 +141,7 @@ begin FreeMem(FData); FData := nil; end; - + Inherited; end; @@ -405,7 +405,7 @@ begin CopyMemory(@len, Pointer(Cardinal(FData) + FPosition), SizeOf(Byte)); - + if (FPosition + SizeOf(Byte) + len) <= FSize then begin FPosition := FPosition + SizeOf(Byte);