如何动态的添加N个字段。(0分)

var
tsql:string;
begin
tsql:='alter table test add '+edit1.Text+' '+'varchar(20)';
query1.Close;
query1.SQL.Clear;
query1.SQL.Text:=tsql;
query1.execsql;

这样可以添加一个字段但是连续添加会报错。

不好意思我已经搞定了。
它不能添加数字字段的。呵呵。不好意思