Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 15 lines (10 sloc) 310 Bytes
#!/usr/bin/env instantfpc
{ List all .pas files in this directory, recursively. }
uses CastleFindFiles;
procedure FileCallback(const FileInfo: TFileInfo; Data: Pointer; var StopSearch: boolean);
begin
Writeln(FileInfo.URL);
end;
begin
FindFiles('*.pas', false, @FileCallback, nil, [ffRecursive]);
end.
You can’t perform that action at this time.