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 243 by alloc, Fri Aug 10 17:26:03 2007 UTC vs.
Revision 256 by alloc, Sat Oct 18 23:27:59 2008 UTC

# Line 372 | Line 372 | var
372   begin
373    if fileid < GetFileCount then
374    begin
375 +    if not Assigned(Target) then
376 +      Target := TMemoryStream.Create;
377      if GetFileInfo(FileID).Size > 0 then
378      begin
377      if not Assigned(Target) then
378        Target := TMemoryStream.Create;
379        if not FDatOpened then
380          Fdat_file := TFileStream.Create(FFileName, fmOpenReadWrite);
381        Fdat_file.Seek(Fdat_files[fileid].DatAddr, soFromBeginning);

Diff Legend

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