一个学习DelphiSQlite的简单例子，适用于初学者。下面来一段程序代码：　　procedureTForm1.Button1Click(Sender:TObject);　　begin　　FDQuery1.Close;　　FDQuery1.SQL.Text:='select*fromuser_ecg';　　FDQuery1.Open;　　mmo1.Text:=(FDQuery1.FieldByName('EcgData').AsString);　　end;　　程序用到了比较多的Delphi控件，详情请下载源码。