怎样打印表结构，如同FOXPRO中的LIST STRU TO PRINT(100分)

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #1

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #2

好象没有现成的工具，但自己写段代码就可以实现了。
var i:Integer;
ftype:String;
...
Memo1.Clear;
For i:=0 to Table1.Fields.Count-1do
begin
with Table1.Fieldsdo
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中看到结构。

 

Y

yifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #3

自己编程实现啊
你可以用tdataset.fieldcount获得fields的总数
Table1.Fields.FieldName获得字段名
Table1.Fields.DataType获得字段类型
至于你要输出到屏幕还是打印机就随便你了

 

Y

yifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #4

menxin,还是比你慢了点...

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #5

抢分啦，
老兄好象有几天见不到啦！

 

Y

yifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #6

我的网坏了....刚刚好

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-18

• #7

多人接受答案了。