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

SysUtils: make GetDriveIDFromLetter accept lowercase letters

Browse Source 
git-svn-id: trunk@44389 -
This commit is contained in:
ondrej 2020-03-29 06:16:28 +00:00
parent 997c8089a6
commit eb9a4eca91
1 changed files with 1 additions and 1 deletions

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

@ -19,7 +19,7 @@ begin
if length(ADrive)=0 then
Result:=0
else
Result := (Ord(ADrive[1]))-64;
Result := Ord(UpCase(ADrive[1]))-64;
end;
{$push}