paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 07:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

FileUtil: removed used lclproc

Browse Source 
git-svn-id: trunk@22042 -
This commit is contained in:
mattias 2009-10-05 11:00:05 +00:00
parent 168a949184
commit e1f0e475b2
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/masks.pas
View File

@ -25,7 +25,8 @@ unit Masks;
interface
uses
Classes, SysUtils, Contnrs;
// For Smart Linking: Do not use the LCL!
Classes, SysUtils, Contnrs, LCLStrConsts;
type
TMaskCharType = (mcChar, mcCharSet, mcAnyChar, mcAnyText);
@ -87,8 +88,6 @@ function MatchesMaskList(const FileName, Mask: String; Separator: Char = ';'): B
implementation
uses LCLProc, LCLStrConsts;
function MatchesMask(const FileName, Mask: String): Boolean;
var
AMask: TMask;