1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 :
nommé « .") et (Sr. <> nommé « . .") puis si (Sr. Attr et) >0 faDirectory commencent alors SL1.Add (Dir+sr.Name) ; //TStringlists. SearchFiles (Dir+sr.Name) l'extrémité commencent autrement SL2.Add (Sr. Nom) ; //TStringlists. extrémité ; FindRes : =FindNext (Sr) ; extrémité ; FindClose (Sr) ; extrémité ;