首页 > 代码库 > cxSpreadBook 或 cxSpreadSheet 设置成文本格式

cxSpreadBook 或 cxSpreadSheet 设置成文本格式

2024-07-30 09:18:45   219人阅读

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  //像那些时间类型的 不能强制转换成文本 不然会出错 
        begin
          TStyleAccess(AStyle).StyleInfo.FormatIndex := 49;
          TStyleAccess(AStyle).DoOnChange(AStyle, siFormat);
        end;
      end;
  finally
    TSheetAccess(cxSpreadBook.ActiveSheet).Owner.EndUpdate;
  end;

end;


cxSpreadBook 或 cxSpreadSheet 设置成文本格式


联系
我们