1,3 → 1,19 |
// ============================================================================ |
// Create |
// name : Andre Rikkert de Koe date: Mar 2018 |
// descr : filefind |
// This is a demo of programming in the Pascal language. |
// Its part of a project to implement a program to create a directory |
// tree similar to the output of the Unix find program. |
// EUID : Any user who has read access to all the files being searched for. |
// run : interactive |
// |
// Changes |
// name : date: |
// descr : short description |
// |
// ============================================================================ |
|
program filefind; |
Uses sysutils; |
var directory : string; |