paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-15 21:36:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Masks: implement property TMaskBase.MaskOpCodes.

Browse Source
This commit is contained in:
Bart 2021-10-31 18:21:39 +01:00
parent 71623760cb
commit ebabdd0bba
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/masks.pas
View File

@ -153,6 +153,7 @@ type
TMaskBase = class TMaskBase = class
private private
procedure SetMaskEscapeChar(AValue: Char); procedure SetMaskEscapeChar(AValue: Char);
procedure SetMaskOpCodesAllowed(AValue: TMaskOpCodes);
protected protected
// Literal = It must match // Literal = It must match
// Range = Match any char in the range // Range = Match any char in the range
@ -211,6 +212,7 @@ type
property CaseSensitive: Boolean read fCaseSensitive; property CaseSensitive: Boolean read fCaseSensitive;
property AutoReverseRange: Boolean read fAutoReverseRange write fAutoReverseRange; property AutoReverseRange: Boolean read fAutoReverseRange write fAutoReverseRange;
property EscapeChar: Char read fMaskEscapeChar write SetMaskEscapeChar; property EscapeChar: Char read fMaskEscapeChar write SetMaskEscapeChar;
property MaskOpCodes: TMaskOpCodes read fMaskOpcodesAllowed write SetMaskOpCodesAllowed;
end; end;
{ TMaskUTF8 } { TMaskUTF8 }
@ -564,6 +566,13 @@ begin
fMaskEscapeChar:=AValue; fMaskEscapeChar:=AValue;
end; end;
procedure TMaskBase.SetMaskOpCodesAllowed(AValue: TMaskOpCodes);
begin
if fMaskOpcodesAllowed = AValue then Exit;
fMaskOpcodesAllowed := AValue;
fMaskIsCompiled := False;
end;
procedure TMaskBase.Add(aLength: integer; aData: PBYTE); procedure TMaskBase.Add(aLength: integer; aData: PBYTE);
var var
lCounter: integer; lCounter: integer;