保存表格列宽度cxgrid

procedure cxGridColWidth(t:tcxgridtableview;name:string;mode:string);
var f:Tinifile;
  sl:Tstringlist;
  i:integer;
  s:string;
begin
  sl:=Tstringlist.Create;
  sl.Delimiter:=',';
  f:=Tinifile.Create(path+'\GridConf.ini');
  if mode='Load' then
  begin
    s:=f.ReadString('GridConf',name,'');
    if s='' then
    begin
      for i := 0 to t.ColumnCount-1 do
        t.Columns[i].Width:=80;
    end
    else
    begin
      sl.DelimitedText:=s;
      for I := 0 to t.ColumnCount-1 do
        t.Columns[i].Width:=sl[i].ToInteger
    end;
  end
  else
  begin
    sl.Clear;
    for I := 0 to t.ColumnCount-1 do
      sl.Append(t.Columns[i].Width.ToString);
    f.WriteString('GridConf',name,sl.DelimitedText);
  end;
  f.Free;
  sl.Free;
end;