FireDAC 下的 Sqlite [9] - 关于排序,

TForm1.FormCreate(Sender: TObject); var   i: Integer;   LCode: Integer; begin   {给 FDSQLiteCollation1 设定参数}   FDSQLiteCollation1.DriverLink := FDPhysSQLiteDriverLink1; //  FDSQLiteCollation1.CollationKind := scCompareString; //这是默认值(Unicode 不区分大小写, 在 Win 下是调用 WinAPI.CompareString); 使用其他选项需要自定义排序规则   FDSQLiteCollation1.LocaleName := ‘zh-CN‘;   FDSQLiteCollation1.Flags := [sfIgnoreCase];   FDSQLiteCollation1.CollationName := ‘MyCollation‘;    //下面所有的调用全要依赖这个名称   FDSQLiteCollation1.Active := True;   FDConnection1.Params.Add(‘DriverID=SQLite‘); //  FDConnection1.Params.Add(‘OpenMode=CreateUTF8‘); //这是默认值, 可选 CreateUTF16(Unicode)   {建立测试表, 三个字段 str(汉字), code(汉字对应的 Unicode 值), id(添加顺序)}   FDConnection1.ExecSQL(‘CREATE TABLE MyTable(str string(10), code integer, id integer)‘); //  FDConnection1.ExecSQL(‘CREATE TABLE MyTable(str string(10) COLLATE MyCollation, code integer, id integer)‘); //用在表设计时   {添加测试数据数据}   for i := 0 to 99 do   begin     LCode := Random($9FA5-$4E00);     FDConnection1.ExecSQL(‘INSERT INTO MyTable(str, code, id) VALUES(:1, :2, :3)‘, [WideChar($4E00 + LCode), LCode, i+1]);   end;   FDQuery1.Open(‘SELECT * FROM MyTable‘); //无排序 end; procedure TForm1.Button1Click(Sender: TObject); begin   FDQuery1.Open(‘SELECT * FROM MyTable ORDER BY str‘); //SQLite 内置排序 end; procedure TForm1.Button2Click(Sender: TObject); begin   FDQuery1.Open(‘SELECT * FROM MyTable ORDER BY str COLLATE MyCollation‘); //FireDAC 默认排序 end;

---

测试效果图:

FireDAC 下的 Sqlite [9] - 关于排序,

标签：order by   strong   nap   字段   collate   代码   send   区分大小写   支持   

本文系统来源：https://www.cnblogs.com/yjhb/p/11804243.html

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！