本文整理自网络,侵删。
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 thread类的创建及使用(关于线程函数的传递例子)
更多相关阅读请进入《Delphi》频道 >>