mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
99a02a93ca
not contain wildcards + test
* don't return true from FindGetFileInfo if the file name is ok, but the
search attributes don't match (resulted in returning multiple times the
name of the previous entry that did fulfill all requirements)
git-svn-id: trunk@13074 -
13 lines
161 B
ObjectPascal
13 lines
161 B
ObjectPascal
uses
|
|
SysUtils;
|
|
|
|
var
|
|
Info: TSearchRec;
|
|
begin
|
|
// should not match, is a directory
|
|
if FindFirst('..',faArchive,Info)=0 then
|
|
halt(1);
|
|
FindClose(Info);
|
|
end.
|
|
|