Changeset 30
- Timestamp:
- Apr 9, 2016, 7:49:58 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UPhysDrive.pas
r28 r30 72 72 procedure TDriveInfo.SetSize(AValue: Int64); 73 73 begin 74 if FSize =AValue then Exit;75 FSize :=AValue;74 if FSize = AValue then Exit; 75 FSize := AValue; 76 76 end; 77 77 … … 145 145 NewDriveInfo.Model := Trim(LoadFileToStr(List[I] + '/device/model')); 146 146 NewDriveInfo.SectorSize := StrToInt(Trim(LoadFileToStr(List[I] + '/queue/physical_block_size'))); 147 NewDriveInfo.Size := StrToInt (Trim(LoadFileToStr(List[I] + '/size'))) * 512;147 NewDriveInfo.Size := StrToInt64(Trim(LoadFileToStr(List[I] + '/size'))) * 512; 148 148 NewDriveInfo.Path := '/dev/' + ExtractFileName(List[I]); 149 149 Add(NewDriveInfo);
Note:
See TracChangeset
for help on using the changeset viewer.