Changeset 216 for oup/current/FileClasses
- Timestamp:
- Jun 12, 2007, 11:28:12 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/FileClasses/_FileTypes.pas
r215 r216 99 99 if not (Self is TFile_Empty) then 100 100 begin 101 FFileStream := TMemoryStream.Create;102 ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));103 104 101 InitDatLinks(); 105 102 InitRawList(); 106 103 FDataFields := nil; 107 104 FEditor := nil; 108 109 FFileStream.Free;110 FFileStream := nil;111 105 end 112 106 else
Note:
See TracChangeset
for help on using the changeset viewer.