如何动态在DBGrid中加载字段名

Question

对不起补充一下,是如何动态修改ADOQuery1p字段中的DisPlayLabel属性不是FieldName.

Answer 1

ADOQuery1.SQL.ADD('Select F1 AS 编号，F2 AS 姓名，F3 AS 地址 from MC');

Answer 2

DBGrid1.Columns.Add;
DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='FieldName';

Answer 3

DBGrid1.Fields[i].DisplayText := ''

Answer 4

谢谢guolinchao(潮) 的提示，我已经解决，程序如下所示：
procedure TFrmRSXX.FormShow(Sender: TObject);
var ZD : integer;
begin
DM.CN.Open;
DM.QryRSXX.Open;
with DM do
begin
  if QryPublic.Active then
     QryPublic.Close;
     QryPublic.SQL.Clear;
     QryPublic.SQL.Add('Select * from JGSZ');
     QryPublic.Open;
  while Not QryPublic.Eof  do
     begin
       ZD:=StrToInt(Qrypublic.FieldByName('ID').AsString)-1;
       //DBGrid1.Columns.Add;
       //DBGrid1.Columns[ZD].FieldName:=QryPublic.FieldbyName('F_MC').AsString;
       DBGrid1.Columns[ZD].Title.Caption:=QryPublic.FieldbyName('F_MC').AsString;
       QryPublic.Next;
     end;
end;
end;