paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 18:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL Masks: use ';' as default mask separator

Browse Source 
git-svn-id: trunk@13414 -
This commit is contained in:
tombo 2007-12-22 14:33:12 +00:00
parent f8e055073d
commit 014c784b21
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/masks.pas
View File

@ -73,7 +73,7 @@ type
function GetCount: Integer; function GetCount: Integer;
function GetItem(Index: Integer): TMask; function GetItem(Index: Integer): TMask;
public public
constructor Create(const AValue: String; ASeparator: Char = PathSeparator); constructor Create(const AValue: String; ASeparator: Char = ';');
destructor Destroy; override; destructor Destroy; override;
function Matches(const AFileName: String): Boolean; function Matches(const AFileName: String): Boolean;
@ -83,7 +83,7 @@ type
end; end;
function MatchesMask(const FileName, Mask: String): Boolean; function MatchesMask(const FileName, Mask: String): Boolean;
function MatchesMaskList(const FileName, Mask: String; Separator: Char = PathSeparator): Boolean; function MatchesMaskList(const FileName, Mask: String; Separator: Char = ';'): Boolean;
implementation implementation