|
@@ -50,7 +50,7 @@ interface
|
|
|
|
|
|
{$MODE DELPHI} // Delphi-compatible mode in FreePascal
|
|
{$MODE DELPHI} // Delphi-compatible mode in FreePascal
|
|
// Disabling for now, seems to cause bug in Lazarus (bug ID 36603)
|
|
// Disabling for now, seems to cause bug in Lazarus (bug ID 36603)
|
|
-{ $INLINE ON}
|
|
|
|
|
|
+{$INLINE ON}
|
|
|
|
|
|
// ======== Define base compiler options
|
|
// ======== Define base compiler options
|
|
{$BOOLEVAL OFF}
|
|
{$BOOLEVAL OFF}
|
|
@@ -280,7 +280,7 @@ type
|
|
{$IFDEF UnicodeWordDetection}
|
|
{$IFDEF UnicodeWordDetection}
|
|
FUseUnicodeWordDetection: boolean;
|
|
FUseUnicodeWordDetection: boolean;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
- FEmptyImputRaisesError : Boolean;
|
|
|
|
|
|
+ FEmptyInputRaisesError : Boolean;
|
|
|
|
|
|
CharCheckers: TRegExprCharCheckerArray;
|
|
CharCheckers: TRegExprCharCheckerArray;
|
|
CharCheckerInfos: TRegExprCharCheckerInfos;
|
|
CharCheckerInfos: TRegExprCharCheckerInfos;
|
|
@@ -621,7 +621,7 @@ type
|
|
property SlowChecksSizeMax: integer read fSlowChecksSizeMax write fSlowChecksSizeMax;
|
|
property SlowChecksSizeMax: integer read fSlowChecksSizeMax write fSlowChecksSizeMax;
|
|
|
|
|
|
// Raise error when input string is empty
|
|
// Raise error when input string is empty
|
|
- Property EmptyImputRaisesError : Boolean Read FEmptyImputRaisesError Write FEmptyImputRaisesError;
|
|
|
|
|
|
+ Property EmptyInputRaisesError : Boolean Read FEmptyInputRaisesError Write FEmptyInputRaisesError;
|
|
end;
|
|
end;
|
|
|
|
|
|
type
|
|
type
|
|
@@ -1440,6 +1440,7 @@ begin
|
|
programm := nil;
|
|
programm := nil;
|
|
fExpression := '';
|
|
fExpression := '';
|
|
fInputString := '';
|
|
fInputString := '';
|
|
|
|
+ FEmptyInputRaisesError := False;
|
|
|
|
|
|
regexpBegin := nil;
|
|
regexpBegin := nil;
|
|
regexpIsCompiled := False;
|
|
regexpIsCompiled := False;
|
|
@@ -4217,7 +4218,7 @@ begin
|
|
// Check InputString presence
|
|
// Check InputString presence
|
|
if fInputString = '' then
|
|
if fInputString = '' then
|
|
begin
|
|
begin
|
|
- if EmptyImputRaisesError then
|
|
|
|
|
|
+ if EmptyInputRaisesError then
|
|
Error(reeNoInputStringSpecified);
|
|
Error(reeNoInputStringSpecified);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
@@ -4450,7 +4451,7 @@ begin
|
|
Exit;
|
|
Exit;
|
|
if fInputString = '' then
|
|
if fInputString = '' then
|
|
begin
|
|
begin
|
|
- if EmptyImputRaisesError then
|
|
|
|
|
|
+ if EmptyInputRaisesError then
|
|
Error(reeNoInputStringSpecified);
|
|
Error(reeNoInputStringSpecified);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|