怎样把数据库的字段名称放入一个数组？

Question

tdataset.DefaultFields就有，你不用自己去读，直接用就行了。
table、query等数据库组件者是tdataset，
直接query1.DefaultFields就可以用了。

Answer 1

var
  s : array[0..10] of string;
  i : integer
begin
  for i :=0 to query1.FieldCount -1 do
    s[i] := query1.Fields[i].FieldName ;

Answer 2

var
    s:array[0..20];
    i:integer;
begin
  with table1 do
  begin
    for i:=o to fieldcount-1 do
      s[i]:=fields[i].name;
  end;
end;

Answer 3

var
  s : array[0..10] of string;
  i : integer
begin
  with table1 do
    begin
      for i :=0 to FieldCount -1 do
        s[i] := Fields[i].FieldName ;
    end;