--- oup/rewrite/Tools/BinEdit.pas	2007/02/20 22:03:11	104
+++ oup/current/Tools/BinEdit.pas	2007/02/21 03:28:48	111
@@ -33,8 +33,8 @@ type
 
     procedure LoadDat(_fileid: Integer);
     function Save: Boolean;
-    function GetValue(datatype: Word; offset: LongWord): String;
-    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
+    function GetValue(datatype: Word; offset: Integer): String;
+    procedure SetNewValue(datatype: Word; offset: Integer; Value: String);
 
     procedure WriteStructureInfos;
     procedure ClearStructViewer;
@@ -178,20 +178,7 @@ end;
 
 
 
-
-function IntToBin(Value: Byte): String;
-var
-  i: Byte;
-begin
-  Result := '';
-  for i := 7 downto 0 do
-    Result := Result + IntToStr((Value shr i) and $01);
-end;
-
-
-
-
-function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
+function TForm_BinEdit.GetValue(datatype: Word; offset: Integer): String;
 var
   Data: TByteData;
   i:    Word;
@@ -286,7 +273,7 @@ end;
 
 procedure TForm_BinEdit.WriteStructureInfos;
 var
-  i, j:    LongWord;
+  i, j:    Integer;
   pdata:   PNodeData;
   Data:    TNodeData;
   node:    PVirtualNode;
@@ -388,7 +375,7 @@ var
   i, j:  Integer;
   Data:  TByteData;
   str:   String;
-  Value: LongWord;
+  Value: Integer;
   floatformat: TFormatSettings;
 begin
   floatformat.DecimalSeparator := '.';
@@ -501,7 +488,7 @@ end;
 function TForm_BinEdit.Save: Boolean;
 var
   mem:  TMemoryStream;
-  i:    LongWord;
+  i:    Integer;
 begin
   case MessageBox(Self.Handle, PChar('Save changes to file ' +
       ConManager.Connection[ConID].GetFileInfo(fileid).Name + '?'), PChar('Data changed...'),
@@ -683,7 +670,7 @@ end;
 procedure TForm_BinEdit.value_viewer_context_copyClick(Sender: TObject);
 var
   Name:  String;
-  Value: LongWord;
+  Value: Integer;
 begin
   Name := TMenuItem(Sender).Name;
   if Pos('asstring', Name) > 0 then
@@ -868,7 +855,7 @@ end;
 
 
 
-procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
+procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
 var
   Data: TByteData;
   value_int: LongWord;
@@ -935,7 +922,7 @@ end;
 
 procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject);
 var
-  offset:     LongWord;
+  offset:     Integer;
   datatype:   Word;
   objectname: String;
   Value:      String;