Changeset 204 for oup/current/Tools


Ignore:
Timestamp:
May 27, 2007, 10:03:41 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current/Tools
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • oup/current/Tools/BinEdit.pas

    r198 r204  
    188188  Data: TByteData;
    189189  i:    Integer;
    190   tempi: Integer;
    191190  floatformat: TFormatSettings;
    192191begin

  • oup/current/Tools/TxmpReplace.pas

    r201 r204  
    4848procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
    4949var
    50   mem:  TMemoryStream;
    5150  fadingbyte, depthbyte, storebyte: Byte;
    5251begin
    … …  
    8079
    8180procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
    82 var
    83   mem:   TMemoryStream;
    8481begin
    8582  if opend.Execute then
    … …  
    10299  mem: TMemoryStream;
    103100  new_storetype: Byte;
    104   formatinfo: TImageFormatInfo;
    105101  i: Integer;
    106102const
Note: See TracChangeset for help on using the changeset viewer.