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

MG: fixed typo, thx again Luis

Browse Source 
git-svn-id: trunk@357 -
This commit is contained in:
lazarus 2001-10-17 21:55:51 +00:00
parent 8b0b91740a
commit 3bda8aaab6
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

@ -1189,7 +1189,7 @@ var
{$IFDEF win32} {$IFDEF win32}
// windows // windows
Result:=(copy(TheFilename,1,2)='\\') or ((length(TheFilename)>3) and 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} {$ELSE}
Result:=(TheFilename<>'') and (TheFilename[1]='/'); Result:=(TheFilename<>'') and (TheFilename[1]='/');
{$ENDIF} {$ENDIF}