TeeChart经验总结 14.Export之3.数据导出

这节也很简单,需要介绍4个类.
创建对象的时候,第二个参数为nil,则为全部的Series,否则为指定的Series对象.
另外,除了XML以外,IncludeColors好像都没有用处.
一般数据导出,我都用Cnpack的CnXlsWriter,和TeeChart的TSeriesDataXLS采用的都是直接写XLS格式的方式,但是自由度大很多.

Text:

 1 //uses TeeExport;   
 2 var  
 3   aSeriesDataText: TSeriesDataText;   
 4 begin  
 5   aSeriesDataText := TSeriesDataText.Create(Chart, nil); //nil = all   
 6   aSeriesDataText.TextDelimiter := ';';  // ' ', ',' , tab.....   
 7   aSeriesDataText.TextQuotes := ''''; //'"' .....   
 8   aSeriesDataText.IncludeLabels := True;   
 9   aSeriesDataText.IncludeIndex := True;   
10   aSeriesDataText.IncludeHeader := True;   
11   aSeriesDataText.IncludeColors := True;   
12   aSeriesDataText.SaveToFile('test.txt');   
13   aSeriesDataText.Free;   
14 end;

XML:

 1 //uses TeeExport;   
 2 var  
 3   aSeriesDataXML: TSeriesDataXML;   
 4 begin  
 5   aSeriesDataXML := TSeriesDataXML.Create(Chart, nil); //nil = all   
 6   aSeriesDataXML.IncludeLabels := True;   
 7   aSeriesDataXML.IncludeIndex := True;   
 8   aSeriesDataXML.IncludeHeader := True;   
 9   aSeriesDataXML.IncludeColors := True;   
10   aSeriesDataXML.SaveToFile('test.xml');   
11   aSeriesDataXML.Free;   
12 end;

HTML:

 1 //uses TeeExport;   
 2 var  
 3   aSeriesDataHTML: TSeriesDataHTML;   
 4 begin  
 5   aSeriesDataHTML := TSeriesDataHTML.Create(Chart, nil); //nil = all   
 6   aSeriesDataHTML.IncludeLabels := True;   
 7   aSeriesDataHTML.IncludeIndex := True;   
 8   aSeriesDataHTML.IncludeHeader := True;   
 9   aSeriesDataHTML.IncludeColors := True;   
10   aSeriesDataHTML.SaveToFile('test.html');   
11   aSeriesDataHTML.Free;   
12 end;

Excel(XLS):

 1 //uses TeeExport;   
 2 var  
 3   aSeriesDataXLS: TSeriesDataXLS;   
 4 begin  
 5   aSeriesDataXLS := TSeriesDataXLS.Create(Chart, nil); //nil = all   
 6   aSeriesDataXLS.IncludeLabels := True;   
 7   aSeriesDataXLS.IncludeIndex := True;   
 8   aSeriesDataXLS.IncludeHeader := True;   
 9   aSeriesDataXLS.IncludeColors := True;   
10   aSeriesDataXLS.SaveToFile('test.xls');   
11   aSeriesDataXLS.Free;   
12 end;