Delphi 移动端使用 sqlite数据库查询

本文整理自网络，侵删。

 
    var  Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);begin  // Populate Manufacturer box  SQLConnection1.Connected := True;  SQLQuery1.SQL.Clear;  SQLQuery1.Close;  SQLQuery1.SQL.Add('ｓｅｌｅｃｔ DISTINCT manufacturer FROM cars');  try    SQLQuery1.Open;    cbManufac.Items.Clear;    while not SQLQuery1.Eof do    begin      cbManufac.Items.Add(SQLQuery1.Fields[0].AsString);      SQLQuery1.Next;    end;  finally    SQLQuery1.Close;  end;end;
procedure TForm1.SQLConnection1BeforeConnect(Sender: TObject);begin  {$IF DEFINED(iOS) or DEFINED(ANDROID)}  SQLConnection1.Params.Values['ColumnMetadataSupported'] := 'False';  SQLConnection1.Params.Values['Database'] :=      TPath.Combine(TPath.GetSharedDocumentsPath, 'cars.sqlite');  {$ENDIF}end;end.
 

相关阅读 >>

Delphi 通用程序自动更新升级

Delphi使用project manager添加一个java库到你的应用程序

Delphi gdi+ 文本输出

Delphi代码变异加密工具

Delphi判断电脑是否安装了excel

获取网络日期

Delphi shellexecute 打开文件夹

Delphi强制关闭执行程序(杀进程)

Delphi sametext

Delphi 进程通讯之wm_copydata 发送程序（senddata.exe）

更多相关阅读请进入《Delphi》频道 >>