Delphi中如何创建Foxpro格式的自由表?

Question

在Delphi程序开发中,是否可以创建Foxpro格式的自由表? 主要是与其它软件的导入导出问题。

Answer 1

able2.Close;
table2.Active:=false;
table2.Exclusive:=true;
table2.TableName:='h:\gzkd\sds';
table2.TableType:=ttFOXPRO;
  with table2.FieldDefs do
  begin
  clear;
  with addfielddef do
  begin
  name:='bh';
  datatype:=FTSTRING;
  size:=6;
    end;
     with addfielddef do
  begin
  name:='xm';
  datatype:=FTSTRING;
  size:=8;
    end;
     with addfielddef do
  begin
  name:='ms';
  datatype:=FTSTRING;
  size:=10;
    end;
      with addfielddef do
  begin
  name:='dw';
  datatype:=FTSTRING;
  size:=20;
   end;
   with addfielddef do
  begin
  name:='gzsr';
  datatype:=FTfloat;
  end;
  end;
  table2.CreateTable;
end;
end;

Answer 2

able2.Close;
table2.Active:=false;
table2.Exclusive:=true;
table2.TableName:='h:\gzkd\sds';
table2.TableType:=ttFOXPRO;
  with table2.FieldDefs do
  begin
  clear;
  with addfielddef do
  begin
  name:='bh';
  datatype:=FTSTRING;
  size:=6;
    end;
     with addfielddef do
  begin
  name:='xm';
  datatype:=FTSTRING;
  size:=8;
    end;
     with addfielddef do
  begin
  name:='ms';
  datatype:=FTSTRING;
  size:=10;
    end;
      with addfielddef do
  begin
  name:='dw';
  datatype:=FTSTRING;
  size:=20;
   end;
   with addfielddef do
  begin
  name:='gzsr';
  datatype:=FTfloat;
  end;
  end;
  table2.CreateTable;
end;
end;