ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/BinEdit.pas
(Generate patch)

Comparing oup/current/Tools/BinEdit.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 111 by alloc, Wed Feb 21 03:28:48 2007 UTC

# Line 33 | Line 33 | type
33  
34      procedure LoadDat(_fileid: Integer);
35      function Save: Boolean;
36 <    function GetValue(datatype: Word; offset: LongWord): String;
37 <    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
36 >    function GetValue(datatype: Word; offset: Integer): String;
37 >    procedure SetNewValue(datatype: Word; offset: Integer; Value: String);
38  
39      procedure WriteStructureInfos;
40      procedure ClearStructViewer;
# Line 178 | Line 178 | end;
178  
179  
180  
181 < function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
181 > function TForm_BinEdit.GetValue(datatype: Word; offset: Integer): String;
182   var
183    Data: TByteData;
184    i:    Word;
# Line 273 | Line 273 | end;
273  
274   procedure TForm_BinEdit.WriteStructureInfos;
275   var
276 <  i, j:    LongWord;
276 >  i, j:    Integer;
277    pdata:   PNodeData;
278    Data:    TNodeData;
279    node:    PVirtualNode;
# Line 375 | Line 375 | var
375    i, j:  Integer;
376    Data:  TByteData;
377    str:   String;
378 <  Value: LongWord;
378 >  Value: Integer;
379    floatformat: TFormatSettings;
380   begin
381    floatformat.DecimalSeparator := '.';
# Line 488 | Line 488 | end;
488   function TForm_BinEdit.Save: Boolean;
489   var
490    mem:  TMemoryStream;
491 <  i:    LongWord;
491 >  i:    Integer;
492   begin
493    case MessageBox(Self.Handle, PChar('Save changes to file ' +
494        ConManager.Connection[ConID].GetFileInfo(fileid).Name + '?'), PChar('Data changed...'),
# Line 670 | Line 670 | end;
670   procedure TForm_BinEdit.value_viewer_context_copyClick(Sender: TObject);
671   var
672    Name:  String;
673 <  Value: LongWord;
673 >  Value: Integer;
674   begin
675    Name := TMenuItem(Sender).Name;
676    if Pos('asstring', Name) > 0 then
# Line 855 | Line 855 | end;
855  
856  
857  
858 < procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
858 > procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
859   var
860    Data: TByteData;
861    value_int: LongWord;
# Line 922 | Line 922 | end;
922  
923   procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject);
924   var
925 <  offset:     LongWord;
925 >  offset:     Integer;
926    datatype:   Word;
927    objectname: String;
928    Value:      String;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)