Delphi FireDAC 下的 Sqlite（九） 關於排序

SQLite 內部是按二進制排序, 可以支持 ANSI; FrieDAC 通過 TFDSQLiteCollation 支持了 Unicode 排序, 並可通過其 OnCompare 事件自定義排序. 下面的例子, 測試了這兩種排序的不同.

可把下面代碼直接貼在空白窗體上, 以快速完成窗體設計: object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 297 Height = 199 Align = alLeft DataSource = DataSource1 TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] end object Button1: TButton Left = 303 Top = 24 Width = 110 Height = 25 Caption = 'SQLite '#20869#32622#25490#24207 TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 303 Top = 65 Width = 110 Height = 25 Caption = 'FireDAC '#40664#35748#25490#24207 TabOrder = 2 OnClick = Button2Click end object FDConnection1: TFDConnection Left = 34 Top = 24 end object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink Left = 143 Top = 24 end object FDGUIxWaitCursor1: TFDGUIxWaitCursor Provider = 'Forms' Left = 260 Top = 24 end object FDQuery1: TFDQuery Connection = FDConnection1 Left = 32 Top = 88 end object DataSource1: TDataSource DataSet = FDQuery1 Left = 132 Top = 88 end object FDSQLiteCollation1: TFDSQLiteCollation DriverLink = FDPhysSQLiteDriverLink1 CollationName = 'MyCollation' LocaleName = 'zh-CN' Left = 240 Top = 120 end