本文整理自网络,侵删。
procedure TfrmMain.sBitBtn1Click(Sender: TObject);vark: integer;begin
FDQuery1.SQL.Clear; FDQuery1.SQL.Text := 'SHOW DATABASES'; FDQuery1.Open; DataSource1.DataSet:=FDQuery1;
while NOT FDQuery1.EOF do Begin ShowMessage(FDQuery1.FieldByName('database').AsString); sComboBox1.items.add(FDQuery1.FieldByName('database').AsString); FDQuery1.Next; End;end;
相关阅读 >>
Delphi 结构体的使用、tbitmap和tmemorystream的转换
Delphi tms web core webhttprequest1 解析json
Delphi fmx 从app程序直接跳转到支付宝付款转帐页面
更多相关阅读请进入《Delphi》频道 >>