Changeset 216 for oup/current/FileClasses/_FileTypes.pas

Timestamp:

Jun 12, 2007, 11:28:12 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_FileTypes.pas (modified) (1 diff)

oup/current/FileClasses/_FileTypes.pas

@@ -99 +99 @@
   if not (Self is TFile_Empty) then
   begin
-    FFileStream := TMemoryStream.Create;
-    ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
-
     InitDatLinks();
     InitRawList();
     FDataFields := nil;
     FEditor := nil;
-
-    FFileStream.Free;
-    FFileStream := nil;
   end
   else