Changeset 10 for trunk/UProject.pas
- Timestamp:
- Apr 2, 2016, 12:02:59 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UProject.pas
r9 r10 15 15 Name: string; 16 16 FileName: string; 17 FirstSector: Integer;18 LastSector: Integer;19 17 SectorSize: Integer; 20 18 SectorCount: Integer; 21 19 Modified: Boolean; 22 20 Scans: TDriveScanList; 21 DriveName: string; 23 22 constructor Create; 24 23 destructor Destroy; override; … … 61 60 with RootNode do begin 62 61 WriteInteger(RootNode, 'SectorSize', SectorSize); 62 WriteInteger(RootNode, 'SectorCount', SectorCount); 63 WriteString(RootNode, 'DriveName', DriveName); 63 64 64 65 NewNode := OwnerDocument.CreateElement('Scans'); … … 89 90 with RootNode do begin 90 91 SectorSize := ReadInteger(RootNode, 'SectorSize', 4096); 92 SectorCount := ReadInteger(RootNode, 'SectorCount', 0); 93 DriveName := ReadString(RootNode, 'DriveName', ''); 91 94 92 95 NewNode := FindNode('Scans');
Note:
See TracChangeset
for help on using the changeset viewer.