, hvordan recusively liste over alle filer i telefonbøger.,, procedure getfiles (resultat: tstrings; vej: string. includepath: boolean = falske);,, var,, f: heltal, sr: tsearchrec;,, thepath: string;, begynder, hævder (resultat < > 0, resultatet er nul), thepath: = extractfilepath (sti);,, thepath: = includetrailingbackslash (thepath), r = findfirst (vej, faanyfile, sr), mens f = 0, begynder, hvis includepath,,, resultat. der tilsættes (thepath + sr.name), andre, resultat. der tilsættes (sr.name), r = findnext (sr),,,,,, findclose (sr),,,,,,,,