代码添加datagrid列

yancm

var cl: TDataGridColumn;
begin
  cl:=TDataGridColumn.Create(self);
  cl.Name:='DataGridfieldtemp1';
  DataGrid1.AddColumn(cl);
  cl.FieldName:='temp1';
end;