Browse Source

minor change.

Ugochukwu Mmaduekwe 7 years ago
parent
commit
acc14608b0
1 changed files with 1 additions and 1 deletions
  1. 1 1
      CryptoLib/src/Utils/ClpStringUtils.pas

+ 1 - 1
CryptoLib/src/Utils/ClpStringUtils.pas

@@ -201,7 +201,7 @@ end;
 class function TStringUtils.BeginsWith(const Input, SubString: string;
 class function TStringUtils.BeginsWith(const Input, SubString: string;
   IgnoreCase: Boolean; Offset: Int32): Boolean;
   IgnoreCase: Boolean; Offset: Int32): Boolean;
 var
 var
-  L: Integer;
+  L: Int32;
   PtrInput, PtrSubString: PChar;
   PtrInput, PtrSubString: PChar;
 begin
 begin
   L := System.Length(SubString);
   L := System.Length(SubString);