这到底是为什么?

Question

下面是我写的一个建立DBF文件的代码,建立文件时一切正常,倡使用TDBEDIT以及TDBNAVIGATER添加数据时,系统要求所有的字段都不能为空!这到底是为什么?
  with table1 do
  begin
    with FieldDefs.AddFieldDef do 
    begin
      DataType := ftstring;
      Name := 'Field1';
      Size := 20;
    end;
    with FieldDefs.AddFieldDef do
    begin
      DataType := ftString;
      Size := 10;
      Name := 'Field2';
    end;
    with FieldDefs.AddFieldDef do
    begin
      DataType := ftString;
      Size := 10;
      Name := 'Field3';
    end;
    with FieldDefs.AddFieldDef do
    begin
      DataType := ftString;
      Size := 10;
      Name := 'Field4';
    end;
    Create;
  end;

Answer 1

怎么这样建立表。
用SQL语句呀。
直接在TQuery里运行
Query1.DatabaseName:='c:\';
Query1.Close;
Query1.Sql.Text:='create table c (Field1 char(20),Field2 char(10),'+
                'Field3 char(10),Field4 char(10))';
Query1.ExecSql;
        

Answer 2

你用FieldDefs.AddFieldDef 增加的字段是有唯一性约束的。而且以后也不能再添加字段进去。
  
  可以用TFieldDefs.Add()方法啊。