TODSCell - Exemples

uses System.ODSWriter;

// index des colonnes
const cLoginField = 0;
const cUserNameField = 1;

var data := JSON.Parse('{"users" : [{"login" :"admin", "name" : "Administrateur"},{"login" :"jm", "name" : "Jean-Marc"}],"autres" : ["lalala", "blabla"]}');

//création du document
var ods := TODSDocument.Create;

// page de garde
var pageDeGarde := ods.Sheet[0];
pageDeGarde.Cell[3,3].SetString('Tableau d''utilisateur');

//définition d'une nouvelle feuille
var usersSheet := ods.AddSheet('Utilisateurs');
usersSheet.Name := 'liste utilisateur'; // nom de la feuille
usersSheet.ColumnWidth[cUserNameField]:=5; // largeur de la colonne en cm

//columns header
usersSheet.Cell[cLoginField, 0].SetString('Login');
usersSheet.Cell[cUserNameField, 0].SetString('Nom de l''utilisateur');

//insert data
var users := data.users;
for var userIdx := 0 to users.Length()-1 do begin
   var user:= data.users[userIdx];
   usersSheet.Cell[cLoginField, userIdx+1].SetString(user.login);
   usersSheet.Cell[cUserNameField, userIdx+1].SetString(user.name);
end;

//enregistrement du document
ods.ToZip('d:\temp\myFineName.ods');