如何在ttable里添加字段?

Question

想在table2里添加2个字段,seq取一个序列,怎么做?
    with self.Table2 do
    begin
      active:=false;
      with fielddefs do
      begin
        add('seq',ftinteger,0,true);
        add('flag',ftinteger,0,true);
      end;
//    createtable;
    end;
这样运行后毫无反应,createtable一句加上后,字段是添上去了,但数据全都没了;怎么办呢?

Answer 1

Eg:    Table1.Append;
    Table1.FieldByName('id').AsInteger := StrToInt(Edit1.Text);
    Table2.Open;
    Table2.Post;