4.6.2.2 SetValueAndMerge

SetValueAndMerge pocedure

Prototype:	procedure SetValueAndMerge(const row1,col1,row2,col2 :integer; const Value :variant; const Format,Borders, BorderStyle :string);
Description:	Sets cell value
Syntax:	xls.SetValueAndMerge(row1,col1, row2, col2, Value,Format, Borders, BorderStyle);
	Part	Description
	xls	Variable declared as an instance of the TExcelWrapper class
	row1, row2	Variable declared as integer that represents row number of the first/last cell in the range
	col1, col2	Variable declared as integer that represents column number of the first/last cell in the range
	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.