Changeset 192 for oup/current/DataAccess


Ignore:
Timestamp:
May 24, 2007, 7:48:18 PM (18 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • oup/current/DataAccess/Access_OniArchive.pas

    r173 r192  
    5353
    5454uses
    55   SysUtils, StrUtils, Data, Functions, RawList, DatLinks;
     55  SysUtils, StrUtils, Data, Functions, RawList, DatLinks, Math;
    5656
    5757
    … …  
    560560          fmOpenReadWrite);
    561561      Fraw_file.Seek(raw_info.RawAddr, soFromBeginning);
    562       Fraw_file.CopyFrom(Src, raw_info.RawSize);
     562      Fraw_file.CopyFrom(Src, Min(raw_info.RawSize, Src.Size));
    563563      if UnloadWhenUnused then
    564564      begin
Note: See TracChangeset for help on using the changeset viewer.