mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-07 01:26:10 +02:00
28 lines
373 B
ObjectPascal
28 lines
373 B
ObjectPascal
{$mode objfpc}
|
|
uses
|
|
sysutils;
|
|
|
|
procedure testff(const s: string);
|
|
var
|
|
sr: tsearchrec;
|
|
i : integer;
|
|
begin
|
|
i:=0;
|
|
if findfirst(s,faAnyFile,sr)=0 then
|
|
repeat
|
|
writeln(sr.name);
|
|
inc(i);
|
|
until findnext(sr)<>0;
|
|
findclose(sr);
|
|
if (i=0) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
{$ifdef UNIX}
|
|
testff('/etc/host*');
|
|
{$else}
|
|
testff('c:\autoexec.*');
|
|
{$endif}
|
|
end.
|