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

Comparing oup/current/DataAccess/Access_OniArchive.pas (file contents):
Revision 173 by alloc, Wed May 2 13:19:40 2007 UTC vs.
Revision 192 by alloc, Thu May 24 17:48:18 2007 UTC

# Line 52 | Line 52 | type
52   implementation
53  
54   uses
55 <  SysUtils, StrUtils, Data, Functions, RawList, DatLinks;
55 >  SysUtils, StrUtils, Data, Functions, RawList, DatLinks, Math;
56  
57  
58   (*
# Line 559 | Line 559 | begin
559          Fraw_file := TFileStream.Create(AnsiReplaceStr(FFileName, '.dat', '.raw'),
560            fmOpenReadWrite);
561        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));
563        if UnloadWhenUnused then
564        begin
565          FRawOpened := False;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)