TSPRSpreadsheet - Exemples

uses System.ODSWriter2, System.XLSXWriter, System.SpreadsheetWriter;

// Creation with a class parameter - writing mode  : continuous
procedure WriteZipFile1(writerClass : TSPRSpreadsheetClass ; colummnWidthFactor : float);
begin
   var writer := writerClass.Create(SPRSheetType.Writer);
   var sheet := writer.GetSheetWriter(0);
   sheet.Name := "test1";
   sheet.ColumnWidth[0] := 4 * colummnWidthFactor;
   sheet.WriteString("A1");
   sheet.NewLine;
   sheet.WriteString("");
   sheet.WriteString("B2");
   writer.ToZip("D:\temp\TestCommon1" + writerClass.FileExtension);
end;

// Creation with an object parameter - writing mode  : continuous
procedure WriteZipFile2(writer : TSPRSpreadsheet ; colummnWidthFactor : float);
begin
   var sheet := writer.GetSheetWriter(0);
   sheet.Name := "test1";
   sheet.ColumnWidth[0] := 4 * colummnWidthFactor;
   sheet.WriteString("A1");
   sheet.NewLine;
   sheet.WriteString("");
   sheet.WriteString("B2");
   writer.ToZip("D:\temp\TestCommon2" + writer.FileExtension);
end;

//  Creation  with an object parameter - writing mode  : by cell
procedure WriteZipFile3(writer : TSPRSpreadsheet ; colummnWidthFactor : float);
begin
   var sheet := writer.GetSheet(0);
   sheet.Name := "test1";
   sheet.GetCell(0,0).SetString("A1");
   sheet.GetCell(1,1).SetString("B2");
   sheet.ColumnWidth[0] := 4 * colummnWidthFactor;
   writer.ToZip("D:\temp\TestCommon3" + writer.FileExtension);
end;

// Writing mode : continuous - with class parameter
WriteZipFile1(TXLSXDocument, 1);
WriteZipFile1(TODSDocument2, 1/5);  // "1/5" = approximative width factor from digit width (XLSX) to centimeter (ODS)

// Writing mode : continuous - with object parameter
var xlsxDoc1 := TXLSXDocument.Create(XLSXSheetType.Writer);
WriteZipFile2(xlsxDoc1, 1);
var odsDoc1 := TODSDocument2.Create(ODSSheetType.Writer);
WriteZipFile2(odsDoc1, 1/5);

// Writing mode : by cell - with object parameter
var xlsxDoc2 := TXLSXDocument.Create(XLSXSheetType.ArraySheet);
WriteZipFile3(xlsxDoc2, 1);
var odsDoc2 := TODSDocument2.Create(XLSXSheetType.ArraySheet);
WriteZipFile3(odsDoc2, 1/5);