X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fshared%2FBinEditor.pas;h=50867f41ff60e4664e4c664a326b65977b3b9c99;hb=48fffe15692e9dcd2bdc2ed64f6e998af13211cf;hp=f59d4f3a5f2fb3c64fe748aecb963e133bf64441;hpb=88ce644db1b40111bdb380f4357fa59bdb5173be;p=d2df-sdl.git

diff --git a/src/shared/BinEditor.pas b/src/shared/BinEditor.pas
index f59d4f3..50867f4 100644
--- a/src/shared/BinEditor.pas
+++ b/src/shared/BinEditor.pas
@@ -1,3 +1,4 @@
+{$MODE DELPHI}
 Unit BinEditor;
 
 Interface
@@ -118,7 +119,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 +142,7 @@ begin
     FreeMem(FData);
     FData := nil;
   end;
-  
+
   Inherited;
 end;
 
@@ -405,7 +406,7 @@ begin
       CopyMemory(@len,
                  Pointer(Cardinal(FData) + FPosition),
                  SizeOf(Byte));
-         
+
       if (FPosition + SizeOf(Byte) + len) <= FSize then
         begin
           FPosition := FPosition + SizeOf(Byte);