Changeset 111 for oup/current/Tools


Ignore:
Timestamp:
Feb 21, 2007, 4:28:48 AM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current/Tools
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • oup/current/Tools/BinEdit.pas

    r105 r111  
    3434    procedure LoadDat(_fileid: Integer);
    3535    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);
    3838
    3939    procedure WriteStructureInfos;
    … …  
    179179
    180180
    181 function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
     181function TForm_BinEdit.GetValue(datatype: Word; offset: Integer): String;
    182182var
    183183  Data: TByteData;
    … …  
    274274procedure TForm_BinEdit.WriteStructureInfos;
    275275var
    276   i, j:    LongWord;
     276  i, j:    Integer;
    277277  pdata:   PNodeData;
    278278  Data:    TNodeData;
    … …  
    376376  Data:  TByteData;
    377377  str:   String;
    378   Value: LongWord;
     378  Value: Integer;
    379379  floatformat: TFormatSettings;
    380380begin
    … …  
    489489var
    490490  mem:  TMemoryStream;
    491   i:    LongWord;
     491  i:    Integer;
    492492begin
    493493  case MessageBox(Self.Handle, PChar('Save changes to file ' +
    … …  
    671671var
    672672  Name:  String;
    673   Value: LongWord;
     673  Value: Integer;
    674674begin
    675675  Name := TMenuItem(Sender).Name;
    … …  
    856856
    857857
    858 procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
     858procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
    859859var
    860860  Data: TByteData;
    … …  
    923923procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject);
    924924var
    925   offset:     LongWord;
     925  offset:     Integer;
    926926  datatype:   Word;
    927927  objectname: String;

  • oup/current/Tools/Extractor.pas

    r105 r111  
    7070var
    7171  begintime: Double;
    72   files:     LongWord;
    73   i, done:   LongWord;
     72  files:     Integer;
     73  i, done:   Integer;
    7474  selonly:   Boolean;
    75   fileid:    LongWord;
     75  fileid:    Integer;
    7676  filename:  String;
    7777  path:      String;

  • oup/current/Tools/Preview.pas

    r101 r111  
    138138var
    139139  loop_speed: Word;
    140   linkcount: LongWord;
    141   link: LongWord;
     140  linkcount: Integer;
     141  link: Integer;
    142142  i:    Byte;
    143143begin

  • oup/current/Tools/RawEdit.pas

    r105 r111  
    3939    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    4040
    41     function GetValue(datatype: Word; offset: LongWord): String;
     41    function GetValue(datatype: Word; offset: Integer): String;
    4242    procedure ClearValues;
    4343    procedure WriteValues;
    44     procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
     44    procedure SetNewValue(datatype: Word; offset: Integer; Value: String);
    4545
    4646    procedure value_viewerDblClick(Sender: TObject);
    … …  
    101101procedure TForm_RawEdit.LoadRaw(raw_info: TRawDataInfo);
    102102var
    103   i:    LongWord;
     103  i:    Integer;
    104104  mem: TMemoryStream;
    105105begin
    … …  
    154154
    155155
    156 function TForm_RawEdit.GetValue(datatype: Word; offset: LongWord): String;
     156function TForm_RawEdit.GetValue(datatype: Word; offset: Integer): String;
    157157var
    158158  Data: TByteData;
    … …  
    228228  Data:  TByteData;
    229229  str:   String;
    230   Value: LongWord;
     230  Value: Integer;
    231231  floatformat: TFormatSettings;
    232232begin
    … …  
    340340procedure TForm_RawEdit.FormCreate(Sender: TObject);
    341341var
    342   i:     LongWord;
     342  i:     Integer;
    343343  exts: String;
    344344begin
    … …  
    388388var
    389389  mem:  TMemoryStream;
    390   i:    LongWord;
     390  i:    Integer;
    391391begin
    392392  case MessageBox(Self.Handle, PChar('Save changes to .raw-part of file ' +
    … …  
    635635//  i:     Byte;
    636636  Name:  String;
    637   Value: LongWord;
     637  Value: Integer;
    638638begin
    639639  Name := TMenuItem(Sender).Name;
    … …  
    694694
    695695
    696 procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
     696procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
    697697var
    698698  Data: TByteData;
    … …  
    761761procedure TForm_RawEdit.value_viewerDblClick(Sender: TObject);
    762762var
    763   offset:     LongWord;
     763  offset:     Integer;
    764764  datatype:   Word;
    765765  objectname: String;

  • oup/current/Tools/TxmpReplace.pas

    r105 r111  
    9090procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
    9191var
    92   newsize: LongWord;
    93   old_rawaddr, new_rawaddr: LongWord;
     92  newsize: Integer;
     93  old_rawaddr, new_rawaddr: Integer;
    9494  oldfading: Byte;
    9595  datbyte: Word;
Note: See TracChangeset for help on using the changeset viewer.