2,497
社区成员
发帖
与我相关
我的任务
分享
//colNum:要生成的列的数量,自己定
//Fields:数据字段数组
//Titles:列标题数组
var
col:TColumn;
i:Integer;
begin
for i := 0 to colNum - 1 do
begin
col := DBGrid1.Columns.Add;
col.FieldName := Fields[i];
col.Title.Caption := Titles[i];
end;
end;