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

Merged revision(s) 56029 #08a73bdac1 from trunk:

Browse Source 
Fix TMask.InitMaskString for charsets when CaseSensitive is False. Issue #0032491. Patch by delfion.
........

git-svn-id: branches/fixes_1_8@56038 -
This commit is contained in:
maxim 2017-10-12 22:36:15 +00:00
parent a6ebaf4900
commit 24186cd2fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/masks.pas
View File

@ -240,7 +240,7 @@ var
else else
begin begin
//writeln('MaskUtf8: Set: ' + Last + '-' + UpCase(CP[1])); //writeln('MaskUtf8: Set: ' + Last + '-' + UpCase(CP[1]));
for C := Last to UpCase(CP[1]) do for C := Last to LowerCase(CP[1]) do
Include(CharSet, C) Include(CharSet, C)
end; end;
Inc(I); Inc(I);
@ -255,7 +255,7 @@ var
if fCaseSensitive then if fCaseSensitive then
Last := CP[1] Last := CP[1]
else else
Last := UpCase(CP[1]); Last := LowerCase(CP[1]);
Include(CharSet, Last); Include(CharSet, Last);
Inc(I); Inc(I);
end; end;