Changeset 111 for oup/current


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

Legend:

Unmodified
Added
Removed

  • oup/current/Global/Exporters.pas

    r97 r111  
    8484  TDatData = packed record
    8585    {0x00}
    86     _fileid:         LongWord;
    87     level:           LongWord;
    88     FormatSize:      LongWord;
     86    _fileid:         Integer;
     87    level:           Integer;
     88    FormatSize:      Integer;
    8989    AudioFormat:     Word;
    9090    NumChannels:     Word;
    9191    {0x10}
    92     SampleRate:      LongWord;
    93     ByteRate:        LongWord;
     92    SampleRate:      Integer;
     93    ByteRate:        Integer;
    9494    BlockAlign:      Word;
    9595    BitsPerSample:   Word;
    … …  
    9898    SamplesPerBlock: Word;
    9999    NumCoefficients: Word;
    100     Coefficients:    array[0..6] of LongWord;
     100    Coefficients:    array[0..6] of Integer;
    101101    {0x3E}
    102102    Duration:        Word;
    103103    {0x40}
    104     RawSize:         LongWord;
    105     RawPos:          LongWord;
     104    RawSize:         Integer;
     105    RawPos:          Integer;
    106106  end;
    107107var
    … …  
    112112  //Wave Header Stuff
    113113  ASCII_RIFF:   LongWord; //"RIFF"
    114   WAVE_Len:     LongWord;
     114  WAVE_Len:     Integer;
    115115  ASCII_WAVE:   LongWord; //"WAVE"
    116116  ASCII_FMT:    LongWord; //"fmt "
    117   WAVE_FMT_Len: LongWord;
     117  WAVE_FMT_Len: Integer;
    118118  ASCII_DATA:   LongWord; //"data"
    119   WAVE_DataLen:  LongWord;
     119  WAVE_DataLen:  Integer;
    120120begin
    121121  Result := 0;
    … …  
    190190var
    191191  loop_speed, unknown: Word;
    192   linkcount: LongWord;
    193   link: LongWord;
     192  linkcount: Integer;
     193  link: Integer;
    194194  i: Byte;
    195195begin

  • oup/current/Global/Functions.pas

    r105 r111  
    202202var
    203203  string_build, ascii_version: String;
    204   i: LongWord;
     204  i: Integer;
    205205begin
    206206  string_build  := '';
    … …  
    235235function DecodeHexString(hex: String): TByteData;
    236236var
    237   i: LongWord;
     237  i: Integer;
    238238begin
    239239  SetLength(Result, Length(hex) div 2);

  • oup/current/Global/TypeDefs.pas

    r106 r111  
    2626      Ident:       array[0..$7] of Byte;
    2727      Extension:   array[0..$3] of Char;
    28       ExtCount:    LongWord;
     28      ExtCount:    Integer;
    2929  end;
    3030
    … …  
    9898
    9999 TDatLinks = array of record
    100     Src_Offset: LongWord;
    101     Target:     LongWord;
     100    Src_Offset: Integer;
     101    Target:     Integer;
    102102  end;
    103103}

  • oup/current/Helper/ValueEdit.pas

    r105 r111  
    1919    procedure btn_cancelClick(Sender: TObject);
    2020    procedure btn_okClick(Sender: TObject);
    21     procedure MakeVarInput(objectname: String; offset: LongWord;
     21    procedure MakeVarInput(objectname: String; offset: Integer;
    2222      datatype: Word; current: String; caller: TObject);
    2323    procedure FormCreate(Sender: TObject);
    … …  
    4141  caller_win_raw: TForm_RawEdit;
    4242  _datatype: Word;
    43   _offset: LongWord;
     43  _offset: Integer;
    4444
    4545
    4646
    4747
    48 procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: LongWord;
     48procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: Integer;
    4949  datatype: Word; current: String; caller: TObject);
    5050begin

  • 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.