paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 00:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added GetDriveIDFromLetter, bug ID #28318

Browse Source 
git-svn-id: trunk@33300 -
This commit is contained in:
michael 2016-03-20 19:04:49 +00:00
parent f1a7d07f8e
commit 5085009410
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/disk.inc
View File

@ -13,6 +13,14 @@
**********************************************************************}
function GetDriveIDFromLetter(Const ADrive : PathStr) : Byte;
begin
if length(ADrive)=0 then
Result:=0
else
Result := (Ord(ADrive[1]))-64;
end;
{$push}
{$i-}

2
rtl/objpas/sysutils/diskh.inc
View File

@ -21,9 +21,11 @@ Function SetCurrentDir (Const NewDir : RawByteString) : Boolean;
Function CreateDir (Const NewDir : RawByteString) : Boolean;
Function RemoveDir (Const Dir : RawByteString) : Boolean;
Function ForceDirectories(Const Dir: RawByteString): Boolean;
Function GetDriveIDFromLetter(Const ADrive : RawByteString) : Byte;
Function SetCurrentDir (Const NewDir : UnicodeString) : Boolean;
Function CreateDir (Const NewDir : UnicodeString) : Boolean;
Function RemoveDir (Const Dir : UnicodeString) : Boolean;
Function ForceDirectories(Const Dir: UnicodeString): Boolean;
Function GetDriveIDFromLetter(Const ADrive : UnicodeString) : Byte;