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

LCL, fix 'Error reading MaskEdit1.Text: Error setting text...' when editmask has three fields

Browse Source 
git-svn-id: trunk@15988 -
This commit is contained in:
jesus 2008-08-07 20:24:17 +00:00
parent 372a7016a7
commit ab5c54df8e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/maskedit.pp
View File

@ -596,7 +596,11 @@ begin
if isMasked then
begin
S := '';
for I := 1 To Length(FMask) do S := S + ClearChar(I);
for I := 1 To Length(FMask) do
if FMask[I]=';' then
break
else
S := S + ClearChar(I);
inherited Text := S;
CurrentText := S;
FPosition := 0;