paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 08:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Masks: suppress a hint.

Browse Source 
Note: code contains writeln's, so it will crash if no console is available.
This commit is contained in:
Bart 2021-11-09 19:02:50 +01:00
parent aae437d605
commit ef974cb238
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

@ -227,7 +227,7 @@ type
procedure SetMask(AValue: String); virtual;
protected
fOriginalMask: String;
function IsSpecialChar(AChar: Char): Boolean; virtual;
function IsSpecialChar({%H-}AChar: Char): Boolean; virtual;
procedure CompileOtherSpecialChars; virtual;
class function CompareUTF8Sequences(const P1,P2: PChar): integer; static;
function intfMatches(aMatchOffset: integer; aMaskIndex: integer): TMaskFailCause; //override;
@ -1328,7 +1328,7 @@ end;
function TWindowsMaskUTF8.IsSpecialChar(AChar: Char): Boolean;
begin
Result := (AChar = #0);
Result := (AChar = #0) and (wqFileNameEnd in Quirks);
end;
class procedure TWindowsMaskUTF8.SplitFileNameExtension(