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

Comparing:
oup/rewrite/Tools/BinEdit.pas (file contents), Revision 104 by alloc, Tue Feb 20 22:03:11 2007 UTC vs.
oup/current/Tools/BinEdit.pas (file contents), 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 <
182 < function IntToBin(Value: Byte): String;
183 < var
184 <  i: Byte;
185 < begin
186 <  Result := '';
187 <  for i := 7 downto 0 do
188 <    Result := Result + IntToStr((Value shr i) and $01);
189 < end;
190 <
191 <
192 <
193 <
194 < 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 286 | 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 388 | 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 501 | 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 683 | 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 868 | 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 935 | 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)