本文整理自网络,侵删。
var Form10: TForm10;
implementation
{$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject);var i :integer;begin for i:=0 to ListBox1.Items.Count-1 do try FDQuery1.SQL.Text:='DELETE FROM ' +ListBox1.Items.Strings[i]; FDQuery1.open; except //有部份无法删除 end;end;
procedure TForm10.FormCreate(Sender: TObject);begin FDConnection1.GetTableNames('', '', '', ListBox1.Items);
end;
end.――――――――――――――――
原文链接:https://blog.csdn.net/qq_25439957/article/details/90440360
相关阅读 >>
Delphi 权限控制(Delphi tactionlist方案)
更多相关阅读请进入《Delphi》频道 >>