4.6.2.1 SetValue

SetValue procedure

Prototype:	procedure SetValue(const row,col :integer; const Value :variant; const Format, Borders, BorderStyle :string);
Description:	Sets cell value
Syntax:	xls.SetValue(row,col,Value,Format, Borders, BorderStyle);
	Part	Description
	xls	Variable declared as an instance of the TExcelWrapper class
	row	Variable declared as integer that represents row number
	col	Variable declared as integer that represents column number
	Value	Variable declared as variant that represents the value to be set
	Format	Variable declared as string that represents the format name. Default formats are: Default, DefaultCentered, DefaultIndented, DefaultWrapped, DefaultCenteredWrapped, Bold, BoldCentered, ColCaption, ColCaptionItalic, MainTitle, Dec0, Dec1, Dec2, Dec3, Dec4, Dec5, Dec6
	Borders	Variable declared as string that defines which parts of the borders will be applied. The value can be set to one of the following constants: LEFT,RIGHT,TOP,BOTTOM
	BorderStyle	Variable declared as string that represents border style. The value can be set to one of the following constants: HAIR,THIN,MEDIUM,THICK,DOUBLE
Return value:	none

Example:

Var
  Row, Rows:integer;
  v:variant;
  xls :TExcelWrapper;
Begin
  {document preparation}
  //...
  {managing worksheets}
  //...  
  {set cell values examples}
  xls.SetValueAndMerge(Row,4,Row,5,'Species','ColCaption','','');
  inc(Row);
  xls.SetValue(Row,4,'Species ID','ColCaption','','');
  xls.SetValue(Row,5,'Species value','ColCaption','','');
  inc(Row);
  xls.SetValue(Row,4,ValueAsInteger['IDSpecies'],'DEC0','','');
  xls.SetValue(Row,5,ValueAsString['Species'],'TXT','','');
  xls.SetHTML(Row,20,'Volume, m<sup>3</sup>','Dec2','',''); 
  inc(Row)
  //...
  {get cell value example}
  v:=xls.GetCellValue(Row-1,5);
  
  xls.SetValue(Row, 4 , format('Number of trees per plot ID %d: ',[PlotID]), 'TXT','',''); 
  
  {set formula example}
  xls.SetFormula(Row, 5 ,format('=SUM(R[-%d]C:R[-1]C)',[Rows]),'DEC0','R1C1');
  
  {add image example}
  xls.AddImage(ProjectDir+'Pictures\LogoFirmy.png', 6,1,12,20);
  xls.AddImageExt(ProjectDir+'Misc\HlavickaFirmy.png',1,nCol-5,1,nCol,'RIGHT','CENTER',0.02,0.02,0.02,0.02);
  {document saving / previewing}
  //...
End.