paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Length comparison

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-06 10:47:20 +02:00
parent 8539a8b727
commit b1179dd872
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/uriparser.pp
View File

@ -300,7 +300,7 @@ begin
SetLength(Authority, i - 1);
// Extract username and password
if Authority <> '' then
if Length(Authority)>0 then
begin
i := Pos(':', Authority);
if i = 0 then