Changeset 398

Timestamp:

May 22, 2016, 12:55:07 PM (9 years ago)

Author:

RBRi

Message:

remove usage of ACLStringUtility

File:

• trunk/Library/ACLString.pas (modified) (3 diffs)

trunk/Library/ACLString.pas

@@ -179 +179 @@
 uses
 {$Ifdef os2}
-  OS2Def, ACLFileIOUtility,
+  OS2Def,
+  ACLFileIOUtility,
 {$endif}
-  ACLUtility, ACLStringUtility;
+  ACLUtility,
+  CharUtilsUnit;
 
 const
@@ -401 +403 @@
   // EndP now points to one byte past last non-space char
 
-  _Length:= PCharDiff( EndP, StartP );
+  _Length:= PCharPointerDiff( EndP, StartP );
 
   if _Length > 0 then
@@ -486 +488 @@
     if C = CharToFind then
     begin
-      Result:= PCharDiff( p, _S );
+      Result:= PCharPointerDiff( p, _S );
       break;
     end;