|
@@ -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);
|