我有一组文件：
001.txt
001a.txt
002.txt
002a.txt
...
我正在尝试使用以下代码排除以结尾的项目a，例如001a.txt
PROCEDURE TForm1.FindFiles(StartDir, FileMask: STRING);
VAR
sr: TSearchRec;
IsFound: Boolean;
BEGIN
IsFound := FindFirst(StartDir + FileMask, faAnyFile - faDirectory, sr) = 0;
WHILE IsFound DO
BEGIN
if sr.Name <> '*a.*' then
gFiles.add(StartDir + sr.Name);
IsFound := FindNext(sr) = 0;
END;
FindClose(sr);
END;
该FileMask传递给该过程之中是'*.*'包括所有文件。
但是以上返回所有文件。
所以我的问题是如何从搜索中排除那些文件？
德尔福System.Masks为此提供了单位。这里合适的函数是MatchesMask：
if MatchesMask(sr.Name, '*a.*') then
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句