paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 20:19:39 +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 if isMasked then
begin begin
S := ''; 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; inherited Text := S;
CurrentText := S; CurrentText := S;
FPosition := 0; FPosition := 0;