procedure TMainForm.Button1Click(Sender: TObject);
var
i : integer;
field : array of Business.Data.TFieldRec;
begin
field := Connection1.Meta.GetFieldList('TFILECONTENT'); //先获取ListBox1的当前选中索引,得到表名,接着获取表的字段。
for i := low(field) to high(field) do
begin
Memo1.Lines.Add(field.Name);
end;
end;