delphi - tdxSpreadSheet，如何在代码中创建的单元格中格式化 float ，例如 '123.450'

Question

我正在使用 tdxSpreadSheet 组件。

我的一位客户要求电子表格列中保留 3 位小数，例如“123.450”，但电子表格的格式始终为“123.45”，这对客户来说并不好。

我在文档或我找到的任何示例中找不到任何内容。

我知道在将此计算机创建的电子表格保存为文件后，可以使用 Excel 更改格式。但由于这是一份经常变化的报告，因此客户希望它“正确”生成。

有人知道如何解决这个问题吗？

这是一个代码示例...

  with ssStock.ActiveSheetAsTable.CreateCell(ARow, ACol) do
  begin
    try
      if (AA = 'INVOICE NO') or (AA = 'ACT LENGTH') or (AA = 'NOM LENGTH') or (AA = 'PCS') then
        AsInteger := strToInt(AText)
      else if (AA = 'PORT OF DESTINATION') or (AA = 'CONTAINER NO') or (AA = 'ETD') or (AA = 'ETA') or (AA = 'PRODUCT') or (AA = 'QUALITY') or
           (AA = 'SHIPPER') or (AA =  'BOOK NO') or (AA = 'VESSEL') or (AA = 'Reference') then
        AsString := AText
      else if (AA = 'ACT M3') or (AA = 'PRICE VOLUME') or (AA = 'PRICE')  then begin

        SetText(AText);//AsFloat := strToFloat(AText)
      end
      else begin
        free;
        exit;
      end;
      Style.Font.Style := [];
    finally
    end;
  end;

Answer 1

这应该可以解决问题。不确定这是否适用于 SetText 或者您是否需要使用 AsFloat。

with ssStock.ActiveSheetAsTable.CreateCell(ARow, ACol) do
begin
  Style.DataFormat.FormatCode := '0.000';
end;

According to their forum (这也是上面代码片段的灵感来源)，这个主题的记录不足，但那是 6 年前的事了，所以也许他们现在已经修复了它。