cxSpreadBook 或 cxSpreadSheet 設(shè)置成文本格式

uses

     cxSSStyles,cxSSDesigner;

Type 

  TStyleAccess = class(TcxSSCellStyle);
  TSheetAccess = class(TcxSSBookSheet);

procedure TForm2.Button16Click(Sender: TObject);

var
  Row,Col: Integer;
  AStyle: TcxSSCellStyle;
  CurrentStyle: integer;
begin 
  TSheetAccess(cxSpreadBook.ActiveSheet).Owner.BeginUpdate;
  try
    for Row := 0 to cxSpreadBook.ActiveSheet.RowCount - 1 do
      for Col := 0 to cxSpreadBook.ActiveSheet.ColumnCount - 1 do
      begin
        AStyle :=  cxSpreadBook.ActiveSheet.GetCellObject(Col,row).Style;
        CurrentStyle := TStyleAccess(AStyle).StyleInfo.FormatIndex;
        if  CurrentStyle =0 then  //像那些時(shí)間類型的 不能強(qiáng)迫轉(zhuǎn)換成文本 不然會(huì)出錯(cuò) 
        begin
          TStyleAccess(AStyle).StyleInfo.FormatIndex := 49;
          TStyleAccess(AStyle).DoOnChange(AStyle, siFormat);
        end;
      end;
  finally
    TSheetAccess(cxSpreadBook.ActiveSheet).Owner.EndUpdate;
  end;

end;