随笔写写

动态显示标题
  with dbgrdh1 do
  begin
  Columns.Clear;  
  for i:=0 to ADOQuery1.FieldCount-1 do  
  with Columns.Add do  
  begin  
  FieldName:=ADOQuery1.Fields[i].FieldName;  
  end;
  end;
}