4.1.1.3.11 LogTabStops

LogTabStops procedure

Prototype:	procedure LogTabStops(const TabStops_mm_ :array of integer);
Description:	This procedure sets tab stops (in mm) in log window to enable create logs in columns
Syntax:	LogTabStops([TabStops1]...[TabStopsN]);
	Part	Description
	[TabStops1]...[TabStopsN]	variable declared as array of integer that represents tab stops in mm
Return value:	none

Note: This function is available since version X7.

Example:

var
  tab:TTableWrapper;
Begin
  tab:= Project.GetQueryResult('SELECT t.IDPlots , qs.value1 AS Species, SUM(ROUND(t.ExpansionFactor)) AS NumberOfTrees FROM TREES_2013 t JOIN QSpecies qs ON qs.ID=t.Species group by t.IDPlots, qs.value1');
  
  OpenLog('Number of trees');
  LogTabStops([10,40,90]);
  
  Log(#9'IDPlots'#9'Species'#9'Number of trees');
  Log('');
  
  tab.First;
  while not tab.EOF do
  begin                    
    log(format(#9'%d'#9'%s'#9'%d',[tab.ValueAsInteger['IDPlots'], tab.ValueAsString['Species'], tab.ValueAsInteger['NumberOfTrees']]));
    tab.Next;
  end;
end.

Output in Data Collector: