X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FBinEditor.pas;h=251f07573646492e99edf75eb1669e3cb581dbe9;hb=cc7f0a9c9ed703e0c9f5126b6cbf8015f39192fb;hp=f59d4f3a5f2fb3c64fe748aecb963e133bf64441;hpb=88ce644db1b40111bdb380f4357fa59bdb5173be;p=d2df-sdl.git diff --git a/src/shared/BinEditor.pas b/src/shared/BinEditor.pas index f59d4f3..251f075 100644 --- a/src/shared/BinEditor.pas +++ b/src/shared/BinEditor.pas @@ -1,3 +1,19 @@ +(* Copyright (C) DooM 2D:Forever Developers + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + *) +{$MODE DELPHI} Unit BinEditor; Interface @@ -118,7 +134,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 +157,7 @@ begin FreeMem(FData); FData := nil; end; - + Inherited; end; @@ -405,7 +421,7 @@ begin CopyMemory(@len, Pointer(Cardinal(FData) + FPosition), SizeOf(Byte)); - + if (FPosition + SizeOf(Byte) + len) <= FSize then begin FPosition := FPosition + SizeOf(Byte);