Changeset 231 for oup/current/FileClasses
- Timestamp:
- Jun 21, 2007, 12:24:04 AM (18 years ago)
- Location:
- oup/current/FileClasses
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/FileClasses/_Extensions.pas
r229 r231 2 2 3 3 interface 4 5 uses 6 _FileTypes; 4 7 5 8 type -
oup/current/FileClasses/_FileTypes.pas
r216 r231 11 11 protected 12 12 FConnectionID: Integer; 13 FFileID: Integer; 14 FFileName: String; 15 FFileExt: String; 16 FFileSize: Integer; 13 FFileInfo: TFileInfo; 17 14 FFileStream: TMemoryStream; 18 15 … … 45 42 46 43 property FileStream: TMemoryStream read FFileStream; 47 property FileID: Integer read FFileID; 48 property FileName: String read FFileName; 49 property FileExt: String read FFileExt; 50 property FileSize: Integer read FFileSize; 44 property FileInfo: TFileInfo read FFileInfo; 51 45 property ConnectionID: Integer read FConnectionID; 52 46 … … 84 78 85 79 constructor TFile.Create(ConnectionID, FileID: Integer); 86 var87 fileinfo: TFileInfo;88 80 begin 89 81 FConnectionID := ConnectionID; 90 FFileID := FileID; 91 fileinfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID); 92 FFileName := fileinfo.Name; 93 FFileExt := fileinfo.Extension; 94 FFileSize := fileinfo.Size; 82 FFileInfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID); 95 83 96 84 FCached := False; … … 235 223 procedure TFile.InitDatLinks; 236 224 begin 237 FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileI D);225 FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileInfo.ID); 238 226 end; 239 227 … … 245 233 procedure TFile.InitRawList; 246 234 begin 247 FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileI D);235 FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileInfo.ID); 248 236 end; 249 237
Note:
See TracChangeset
for help on using the changeset viewer.