动态创建一个Table表格

VCL中有一个CreateTable()方法，调用它就可以创建一个数据库表。操作步骤如下： 1) 创建一个T Ta b l e 实例。
2) 将其D a t a b a s e N a m e 属性设为一个目录或已有的数据库别名。
3) 通过Ta b l e N a m e 属性来指定数据库表的名称，要求是唯一的。
4) 设置TableType 属性以指明要创建的数据库表类型。如果此属性设为ttDefault,表示数据库表的类型
对应于TableName 属性中给出的扩展名。例如，.DB 后缀表示是Paradox 表，.DBF 后缀表示是dBASE 表。
5) 调用T Ta b l e . F i e l d D e f s 对象的A d d ( )方法，向数据库表中添加字段，A d d ( )方法有4 个参数：
· 一个字符串类型的参数，用于指定字段名称。
· 一个T F i e l d Ty p e 类型的参数，用于指定字段类型。
· 一个Wo r d 类型的参数，用于指定字段的尺寸。要注意，此参数只对S t r i n g 类型和M e m o 类型的字
段适用，而整型、时期等类型字段的大小通常是固定的，所以不需要定义指定字段的尺寸。
· 一个布尔型的参数，用于表明字段的值是否必须非空。对于强制非空的字段来说，在把记录提
交到数据库表中时，都必须有值。
6) 如果要为数据库表建立一个索引，则需要调用Ta b l e . I n d e x D e f s 对象的A d d ( )方法来定义索引字
段。I n d e x D e f s . A d d ( )方法需要传递以下三个参数：
· 一个字符串类型的参数，用于指定索引的名称。
· 一个字符串类型的参数，用于指定索引字段的名称。如果是复合索引，可以用分号把多个字段
隔开。
· 一个T I n d e x O p t i o n s 类型的参数，用于指定索引类型。
7) 调用T Ta b l e 的C r e a t e Ta b l e ( )。
下面的代码创建了一个包含整数、字符串、浮点数类型的字段的数据库表，同时有一个基于整数
字段的索引。该数据库表的名称为F O O . D B ，位于C ： T E M P 目录下。
with TTable.Create(seft) do
begin
DatabaseName:='c:';
TableName:='FOO';
TableType:=ttParadox;
with Fieldefs do
begin
Add('Age',ftInteger,0,True);
Add('Name',ftString,25,False);
Add('Weight',ftFloat,0,False);
end;
IndexDefs.Add('','Age',[ixPrimary,ixUnique]);
CreateTable;
end;