paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed missing bracket for windows

Browse Source 
git-svn-id: trunk@491 -
This commit is contained in:
lazarus 2001-12-10 07:46:10 +00:00
parent bd75d3d4c3
commit 3085b63492
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/linkscanner.pas
View File

@ -1194,7 +1194,7 @@ var
{$IFDEF win32}
// windows
Result:=(copy(TheFilename,1,2)='\\') or ((length(TheFilename)>3) and
(UpChars[TheFilename[1]]) in ['A'..'Z']) and (TheFilename[2]=':'));
(UpChars[TheFilename[1]] in ['A'..'Z']) and (TheFilename[2]=':'));
{$ELSE}
Result:=(TheFilename<>'') and (TheFilename[1]='/');
{$ENDIF}