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:\Temp';

 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;

T Ta b l e . C r e a t e ( ) 仅适用于本地表。对于 S Q L 表，要使用 T Q u e r y 组件