AdvStringGrid

来源：互联网发布：怎么启动mysql数据库编辑：程序博客网时间：2024/05/16 14:08

//从文件中加载
asg.LoadFromCSV(Path+FileName);
//清空所有行
asg.ClearRows(0,asg.RowCount-1);
//保存
asg.SaveToCSV(Path+'Test.csv');
ColCount := 41;         {总列数}
RowCount := 3;          {总行数}
FixedRows := 2;           {表头行数}
FixedCols := 2;           {表头列数}
    DefaultColWidth := 18;    {设缺省列宽}
    DefaultRowHeight := 18;   {设缺省行高}
    ColWidths[0] := 56;       {设表头第一列宽}
    RowHeights[0] := 20;      {设表头第一行高}
    MergeCells(0,0,1,2); {合并函数：列，行，合并多少列，合并多少行}
    Cells[0,0] := '期数'; {显示文字}
  {对符合条件的列行着背景色和文字色、类型}//OnGetCellColor事件
  if (not(aRow In [0..1])) and (aCol In [2..11]) then
  begin
    AFont.Style := AFont.Style + [fsBold];
    ABrush.Color := $00E0FFFA;
    AFont.Color := clWhite;
  end;
Halign := taCenter; {文字水平垂直居中}//OnGetAlignment事件