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

LazUtils: Masks: move TMaskFailCause type inside the TMaskBase class. It is not needed outside.

Browse Source
This commit is contained in:
Bart 2021-11-02 18:28:19 +01:00
parent 5133009bc0
commit 88f6d76cfc
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazutils/masks.pas
View File

@ -45,13 +45,6 @@ type
property Code: TMaskExceptionCode read FCode; property Code: TMaskExceptionCode read FCode;
end; end;
TMaskFailCause = (
mfcSuccess,
mfcMatchStringExhausted,
mfcMaskExhausted,
mfcMaskNotMatch,
mfcUnexpectedEnd
);
TMaskOpCode=(mocAnyChar, //treat ? as a wildcard to match exactly one char TMaskOpCode=(mocAnyChar, //treat ? as a wildcard to match exactly one char
mocAnyCharOrNone, //treat [?] to match any char or the absence of a char mocAnyCharOrNone, //treat [?] to match any char or the absence of a char
@ -178,6 +171,13 @@ type
CharsGroupBegin=10, CharsGroupBegin=10,
CharsGroupEnd=11 CharsGroupEnd=11
); );
TMaskFailCause = (
mfcSuccess,
mfcMatchStringExhausted,
mfcMaskExhausted,
mfcMaskNotMatch,
mfcUnexpectedEnd
);
const GROW_BY=100; const GROW_BY=100;
procedure Add(aLength: integer; aData: PBYTE); procedure Add(aLength: integer; aData: PBYTE);
procedure Add(aValue: integer); procedure Add(aValue: integer);