--- oup/current/DataAccess/Access_OUP_ADB.pas 2007/03/28 17:53:54 134 +++ oup/current/DataAccess/Access_OUP_ADB.pas 2007/04/01 21:14:29 155 @@ -73,6 +73,7 @@ begin FDatabase.Open; FQuery := TABSQuery.Create(FDatabase); FQuery.DisableControls; + FQuery.RequestLive := False; FQuery.DatabaseName := 'OLDBcon' + IntToStr(ConnectionID); FQuery.SQL.Text := 'SELECT [name],[value] FROM globals ORDER BY [name] ASC'; FQuery.Open; @@ -252,6 +253,7 @@ var begin list := TStringList.Create; + list.CaseSensitive := True; list.Sorted := True; for i := 0 to GetFileCount - 1 do begin @@ -269,7 +271,7 @@ begin ST_IDAsc, ST_IDDesc: list.Add(id + ';' + name + ';' + extension); ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension); ST_ExtAsc, ST_ExtDesc: list.Add(extension + ';' + id + ';' + name); - ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id); + ST_ExtNameAsc, ST_ExtNameDesc: list.Add(extension + ';' + name + ';' + id); end; end; end;