fpcsrc/tests/tbs/tb0559.pp


1
2
3
4
5
6
7
8
9
10
11
12

uses
 SysUtils;

var
 Info: TSearchRec;
begin
 // should not match, is a directory
 if FindFirst('..',faArchive,Info)=0 then
   halt(1);
 FindClose(Info);
end.