1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:
conhecido “.") e (Sénior. <> conhecido “. .") então se (Sénior. Attr e) >0 faDirectory começam então SL1.Add (Dir+sr.Name); //TStringlists. SearchFiles (Dir+sr.Name) a extremidade começa mais SL2.Add (Sénior. Nome); //TStringlists. extremidade; FindRes: =FindNext (Sénior); extremidade; FindClose (Sénior); extremidade;