2 年之前 · 9552d2b757
--- a/packages/unixutil/src/unixutils.pp
+++ b/packages/unixutil/src/unixutils.pp
@@ -73,7 +73,7 @@ Const
 
				 { Utility functions }
			
 
				 
			
 
				 Type
			
 
				- TPermissionString = AnsiString[9];
			
 
				+ TPermissionString = string[9];
			
 
				 
			
 
				 Type
			
 
				   TGlobFlag = (gfErr,gfMark,gfNoSort,gfNoCheck,gfAppend,gfNoEscape,