Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix typo

Michael VAN CANNEYT 2 years ago
parent
7edf9b3884
commit
4bddf12657
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/inc/isotmp.inc

+ 1 - 1
rtl/inc/isotmp.inc
View File 

@@ -24,7 +24,7 @@
 
         unique : Boolean;
 
         unique : Boolean;
 
       begin
 
       begin
 
         InternalChangeCase := S;
 
         InternalChangeCase := S;
 
-        if Length(InternalChangeCase) then
 
+        if Length(InternalChangeCase)=0 then
 
           exit;
 
           exit;
 
         unique := false;
 
         unique := false;
 
         p := PWideChar(InternalChangeCase);
 
         p := PWideChar(InternalChangeCase);