menxin在另一问题中的回答
好象没有现成的工具，但自己写段代码就可以实现了。
var i:Integer;
ftype:String;
...
Memo1.Clear;
For i:=0 to Table1.Fields.Count-1 do begin
with Table1.Fields do begin
case Datatype of
ftString:ftype:='A';
ftSmallint:ftype:='S';
ftInteger:ftype:='I';
ftBoolean:ftype:='L';
...
end;
Memo1.Lines.Add(FieldName+' '+ftype+' '+IntToStr(DataSize-1));
end;
end;
你可以在memo中看到结构。
