Ignore:
Timestamp:
Jun 12, 2007, 11:28:12 PM (17 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • oup/current/FileClasses/_FileTypes.pas

    r215 r216  
    9999  if not (Self is TFile_Empty) then
    100100  begin
    101     FFileStream := TMemoryStream.Create;
    102     ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
    103 
    104101    InitDatLinks();
    105102    InitRawList();
    106103    FDataFields := nil;
    107104    FEditor := nil;
    108 
    109     FFileStream.Free;
    110     FFileStream := nil;
    111105  end
    112106  else
Note: See TracChangeset for help on using the changeset viewer.