如何在delphi中实现oracle中dev用户下面所有表的纪录清空？？ 怎么不能用spool语句？

Question

我在sql/pl中用spool可以实现的！ 
spool on 
spool delete.sql 
select 'delete from '||table_name|| ';' from dba_tables where owner='DEV'; 
spool off 
@delete.sql 
但是同样是上面的语句，我在delphi中用Query来实现上面sql，却发现不行，为什么？在delphi中该如何实现？？

Answer 1

with fcdm.ADOQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('spool on;');
  SQL.Add('spool delete.sql;');
  SQL.Add('select 'delete from '||table_name|| ';' from dba_tables where owner='LHJ';');
  SQL.Add('spool off;');
  SQL.Add('@delete.sql;');
  Open;
end;
下面的这句有错误为什么？怎么该阿？？
SQL.Add('select 'delete from '||table_name|| ';' from dba_tables where owner='LHJ';');

Answer 2

1.SQL.Add('select ''delete from ''||table_name|| '';'' from dba_tables where owner=''LHJ'';')2.Query.execute;3.我也不知道，没试过。