mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 11:59:27 +02:00
SysUtils: make GetDriveIDFromLetter accept lowercase letters
git-svn-id: trunk@44389 -
This commit is contained in:
parent
997c8089a6
commit
eb9a4eca91
@ -19,7 +19,7 @@ begin
|
|||||||
if length(ADrive)=0 then
|
if length(ADrive)=0 then
|
||||||
Result:=0
|
Result:=0
|
||||||
else
|
else
|
||||||
Result := (Ord(ADrive[1]))-64;
|
Result := Ord(UpCase(ADrive[1]))-64;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$push}
|
{$push}
|
||||||
|
Loading…
Reference in New Issue
Block a user