paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MaskEdit: new exception type for errors in EditMask.

Browse Source 
git-svn-id: trunk@64903 -
This commit is contained in:
bart 2021-04-02 21:34:20 +00:00
parent bf15a643ab
commit 9124789bc5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/maskedit.pp
View File

@ -146,6 +146,7 @@ type
{ Exception class }
type
EDBEditError = class(Exception);
EInvalidEditMask = class(EDBEditError);
//Utf8 handling errors
EInvalidUtf8 = class(Exception);
EInvalidCodePoint = class(EInvalidUtf8);
@ -690,7 +691,7 @@ begin
if InSet then
begin //InSet
if (Length(CP) <> 1) then
raise EDBEditError.Create(SIllegalCharInSet);
raise EInvalidEditMask.Create(SIllegalCharInSet);
case CP[1] of
cMask_SetNegate:
begin
@ -712,7 +713,7 @@ begin
begin
//debugln('Set closed:');
if (CharSet = []) then
raise EDBEditError.Create(SEmptySet);
raise EInvalidEditMask.Create(SEmptySet);
//debugln(['IsNegative=',IsNegative]);
if IsNegative then
begin
@ -741,7 +742,7 @@ begin
cMask_SetRange:
begin
if InRange then
raise EDBEditError.Create(SIllegalRangeChar);
raise EInvalidEditMask.Create(SIllegalRangeChar);
if (CharSet = []) then
begin
//debugln('Adding - to emty set');
@ -927,7 +928,7 @@ begin
end;
end;
if InSet then
raise EDBEditError.Create(SUnclosedSet);
raise EInvalidEditMask.Create(SUnclosedSet);
//debugln('TCustomMaskEdit.SetEditMask: Internal Mask:');
//debugln(DbgS(FMask));