这节也很简单,需要介绍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;