| 253 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 254 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 255 | 
   | 
   list := TStringList.Create; | 
 
 
 
 
 
 
 
 
 | 256 | 
 + | 
   list.CaseSensitive := True; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 257 | 
   | 
   list.Sorted := True; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 258 | 
   | 
   for i := 0 to GetFileCount - 1 do | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 259 | 
   | 
   begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 271 | 
   | 
           ST_IDAsc, ST_IDDesc:     list.Add(id + ';' + name + ';' + extension); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 272 | 
   | 
           ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 273 | 
   | 
           ST_ExtAsc, ST_ExtDesc:   list.Add(extension + ';' + id + ';' + name); | 
 
 
 
 
 
 
 
 
 
 
 
 | 274 | 
 < | 
           ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id); | 
 
 
 
 
 
 
 
 
 
 | 274 | 
 > | 
           ST_ExtNameAsc, ST_ExtNameDesc: list.Add(extension + ';' + name + ';' + id); | 
 
 
 
 
 
 
 
 
 
 
 
 | 275 | 
   | 
         end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 276 | 
   | 
       end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 277 | 
   | 
     end; |