动态建表(示例)

　　begin
　　with Table1 do
　　begin
　　  Active := False;
　　  DatabaseName := 'DOCTOR';
　　  TableType := ttParadox;
　　  TableName := 'DOCTORINF23';
　　  if not Table1.Exists then begin
　　     with FieldDefs do begin
　　        Clear;
　　        with AddFieldDef do begin
　　            Name := '姓名';
　　            DataType := ftString;
　　            Required := True;
　　            Size := 10;
　　        end;
　　        with AddFieldDef do begin
　　             Name := '年龄';
　　             DataType := ftInteger;
　　        end;//建立字段定，利用AddFieldDef方法添加一个新的TFieldDef对象
　　        with AddFieldDef do begin
　　            Name := '职称';
　　            DataType := ftString;
　　            Required := True;
　　            Size := 10;
　　        end;
　　     end;
　　     with IndexDefs do begin
　　          Clear;
　　          with AddIndexDef do begin
　　          Name := 'MYINDEX';
　　          Fields := '姓名';
　　          Options := [ixPrimary];
　　          end;
　　     end;  //建立索引
　　  end;
　　  CreateTable;
　　end;
　　    //Table1.Append ;
　　    Table1.Open;
　　    Table1.Edit;
　　    Table1.FieldByName('姓名').AsString:='刘延';
　　    Table1.FieldByName('年龄').AsInteger:=22 ;
　　    Table1.FieldByName('职称').AsString:='医师';
　　    Table1.Append;
　　    Table1.Edit;
　　    Table1.FieldByName('姓名').AsString:='杨晓';
　　    Table1.FieldByName('年龄').AsInteger:=25 ;
　　    Table1.FieldByName('职称').AsString:='医师';
　　    DBGrid1.DataSource:=DataSource1;
　　    Table1.Active :=True;
　　end;