| 73 | 
   | 
   FDatabase.Open; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 74 | 
   | 
   FQuery := TABSQuery.Create(FDatabase); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 75 | 
   | 
   FQuery.DisableControls; | 
 
 
 
 
 
 
 
 
 | 76 | 
 + | 
   FQuery.RequestLive := False; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 77 | 
   | 
   FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 78 | 
   | 
   FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC'; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 79 | 
   | 
   FQuery.Open; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 270 | 
   | 
           ST_IDAsc, ST_IDDesc:     list.Add(id + ';' + name + ';' + extension); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 271 | 
   | 
           ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 272 | 
   | 
           ST_ExtAsc, ST_ExtDesc:   list.Add(extension + ';' + id + ';' + name); | 
 
 
 
 
 
 
 
 
 
 
 
 | 273 | 
 < | 
           ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id); | 
 
 
 
 
 
 
 
 
 
 | 273 | 
 > | 
           ST_ExtNameAsc, ST_ExtNameDesc: list.Add(extension + ';' + name + ';' + id); | 
 
 
 
 
 
 
 
 
 
 
 
 | 274 | 
   | 
         end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 275 | 
   | 
       end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 276 | 
   | 
     end; |