mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 08:07:22 +01:00
25463000ac
starts with './' (mantis #14020) * also mark files whose name starts with '.' that are found in subdirectories as faHidden (not reported, but was due to a similar error) - removed some unused variables related to the Find* functionality git-svn-id: trunk@13307 -
37 lines
728 B
ObjectPascal
37 lines
728 B
ObjectPascal
{ %target=linux,freebsd,darwin,solaris,haiku }
|
|
|
|
program project1;
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
var
|
|
rSearch: TSearchRec;
|
|
lsName, lsSearch: String;
|
|
bDone: Boolean;
|
|
begin
|
|
{ for all files in the dir }
|
|
lsSearch := './' + AllFilesMask; //fails to find anything
|
|
WriteLn(lsSearch);
|
|
|
|
FillChar(rSearch, Sizeof(TSearchRec), 0);
|
|
bDone := (FindFirst(lsSearch, 0, rSearch) <> 0);
|
|
|
|
while not bDone do
|
|
begin
|
|
lsName := rSearch.Name;
|
|
Assert(lsName <> '');
|
|
if (rSearch.Attr and faDirectory > 0) then
|
|
continue;
|
|
|
|
{ if we find one file, it's ok }
|
|
findclose(rsearch);
|
|
halt(0);
|
|
|
|
bDone := (FindNext(rSearch) <> 0);
|
|
Assert(bDone or (rSearch.Name <> lsName));
|
|
end;
|
|
FindClose(rSearch);
|
|
halt(1);
|
|
end.
|