Commit 08a73bda authored by Bart B's avatar Bart B 🐞
Browse files

Fix TMask.InitMaskString for charsets when CaseSensitive is False. Issue...

Fix TMask.InitMaskString for charsets when CaseSensitive is False. Issue #32491. Patch by delfion.

git-svn-id: trunk@56029 -
parent 1e16c528
......@@ -240,7 +240,7 @@ var
else
begin
//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)
end;
Inc(I);
......@@ -255,7 +255,7 @@ var
if fCaseSensitive then
Last := CP[1]
else
Last := UpCase(CP[1]);
Last := LowerCase(CP[1]);
Include(CharSet, Last);
Inc(I);
end;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment