paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

MaskEdit: fix program crash in OnExit of DBEdit, after TDBEdit.UpdateData calls ValidateEdit (issue #0024134).

Browse Source 
git-svn-id: trunk@40660 -
This commit is contained in:
bart 2013-03-28 17:52:04 +00:00
parent c92f53e178
commit dd4612a337
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/maskedit.pp
View File

@ -1615,14 +1615,16 @@ begin
{$IFNDEF MASKEDIT_NOVALIDATEONEXIT}
//Do not validate if FValidationFailed, or risk raising an exception while the previous exception was
//not handled, resulting in an application crash
if IsMasked and (FTextOnEnter <> Inherited Text) and (not FValidationFailed) then
if IsMasked and (FTextOnEnter <> Inherited Text) then
begin
//assume failure
try
//debugln('TCustomMaskedit.DoExit: try ValidateEdit');
FValidationFailed := True;
ValidateEdit;
FValidationFailed := False;
if (not FValidationFailed) then
begin
ValidateEdit;
FValidationFailed := False;
end ;
finally
if FValidationFailed then
begin
@ -1967,6 +1969,7 @@ begin
if not TextIsValid(S) then
begin
SetCursorPos;
FValidationFailed := True;
Raise EDBEditError.Create(SMaskEditNoMatch);
end;
end;