在FORM上放置3个LISTBOX用于显示,代码如下:
var
i:integer;
begin
with query1 do
begin
for i:=0 to query1.FieldCount-1 do
begin
listbox1.Items.Append(Fields.FieldName);
listbox2.Items.Append(inttostr(Fields.DataSize-1));
//listbox3.Items.Append(Fields.DataType);
end;
end;