動態建表(樣本)

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;