var
sMask : string;
begin
..
sMask := IncludeTrailingPathDelimiter( ExtractFilePath( Application.ExeName ) ) +
'*' + '.txt';
Output :c:\dir\*.txt
确保文件路径以系统定界符结尾的一种很好的技术
var
sMask : string;
begin
..
sMask := IncludeTrailingPathDelimiter( ExtractFilePath( Application.ExeName ) ) +
'*' + '.txt';
Output :c:\dir\*.txt
|