Changeset 111 for oup/current/Tools/BinEdit.pas

Timestamp:

Feb 21, 2007, 4:28:48 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/BinEdit.pas (modified) (8 diffs)

oup/current/Tools/BinEdit.pas

@@ -34 +34 @@
     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;
@@ -179 +179 @@
 
 
-function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
+function TForm_BinEdit.GetValue(datatype: Word; offset: Integer): String;
 var
   Data: TByteData;
@@ -274 +274 @@
 procedure TForm_BinEdit.WriteStructureInfos;
 var
-  i, j:    LongWord;
+  i, j:    Integer;
   pdata:   PNodeData;
   Data:    TNodeData;
@@ -376 +376 @@
   Data:  TByteData;
   str:   String;
-  Value: LongWord;
+  Value: Integer;
   floatformat: TFormatSettings;
 begin
@@ -489 +489 @@
 var
   mem:  TMemoryStream;
-  i:    LongWord;
+  i:    Integer;
 begin
   case MessageBox(Self.Handle, PChar('Save changes to file ' +
@@ -671 +671 @@
 var
   Name:  String;
-  Value: LongWord;
+  Value: Integer;
 begin
   Name := TMenuItem(Sender).Name;
@@ -856 +856 @@
 
 
-procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
+procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
 var
   Data: TByteData;
@@ -923 +923 @@
 procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject);
 var
-  offset:     LongWord;
+  offset:     Integer;
   datatype:   Word;
   objectname: String;