转出的DBF文件里面的字符字段宽度怎么为1？ ( 积分: 100 )

这是我创建DBF表的源代码：<br>function&nbsp;TFrmExport.CreateTableStruct(TabType:&nbsp;TTableType;&nbsp;StrTn:&nbsp;string):<br>&nbsp;&nbsp;Boolean;<br>var<br>&nbsp;&nbsp;i:&nbsp;Integer;<br>begin<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;False;<br>&nbsp;&nbsp;with&nbsp;Table1&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;The&nbsp;Table&nbsp;component&nbsp;must&nbsp;not&nbsp;be&nbsp;active&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;Active&nbsp;:=&nbsp;False;<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;First,&nbsp;describe&nbsp;the&nbsp;type&nbsp;of&nbsp;table&nbsp;and&nbsp;give&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;it&nbsp;a&nbsp;name&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;TableType&nbsp;:=&nbsp;TabType;<br>&nbsp;&nbsp;&nbsp;&nbsp;TableName&nbsp;:=&nbsp;strTn;<br>&nbsp;&nbsp;&nbsp;&nbsp;fieldS.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;FieldDefs.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;{Next,&nbsp;describe&nbsp;the&nbsp;fields&nbsp;in&nbsp;the&nbsp;table&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i&nbsp;:=&nbsp;0&nbsp;to&nbsp;FDataLink.DataSet.FieldCount&nbsp;-&nbsp;1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;FieldDefs&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case&nbsp;FDataLink.DataSet.Fields.DataType&nbsp;of<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ftstring,ftwidestring:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FieldDefs.Add(FDataLink.DataSet.Fields.FieldName,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FDataLink.DataSet.Fields.DataType,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FDataLink.DataSet.Fields.Datasize);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FieldDefs.Add(FDataLink.DataSet.Fields.FieldName,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FDataLink.DataSet.Fields.DataType);<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;//End&nbsp;With&nbsp;FieldDefs<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Call&nbsp;the&nbsp;CreateTable&nbsp;method&nbsp;to&nbsp;create&nbsp;the&nbsp;table&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CreateTable;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;True;<br>&nbsp;&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;False;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CDMessageBox('请确认你原数据是否正确',&nbsp;'错误',&nbsp;MB_oK&nbsp;+&nbsp;mb_IconWarning);<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;end;&nbsp;//End&nbsp;With&nbsp;Table1;<br>end;<br>转出后所有字符字段的宽度为1<br>急，急急！

ding

转出后所有字符字段的宽度为1<br>急，急急！

ding

ding

ding