Модуль TeeStore unit содержит определение компонент TSeriesData:
| Text |
TSeriesDataText |
| XML |
TSeriesDataXML |
| HTML |
TSeriesDataHTML |
| Excel |
TSeriesDataXLS |
Сохранение происходит следующим образом:
With TSeriesDataHTML.Create(Chart1,Series1) do
Begin
IncludeHeader:=True;
SaveToFile('c:\tempdata\Series1HTMLData.txt');
end;
Предлагается следующий код, который сохраняет один активный ряд данных в выбранный файл:
procedure TMPForm6.ExportinExcel1Click(Sender: TObject);
var
i:integer;
begin
Chart4.Legend.CheckBoxesStyle:=cbsRadio;
for I := 0 to Chart4.SeriesList.Count-1 - 1 do
if Chart4.Series[i].Active then break;
With TSeriesDataXLS.Create(Chart4,Chart4.Series[i]) do
Begin
IncludeHeader:=True;
if SaveDialog2.Execute then
SaveToFile(SaveDialog2.FileName);
end;
end;
Можно так же воспользоваться модулем для Excel. Код при этом получится тривиальным, загрузка будет происходить большее время, но присутствует большая гибкость в управлении передачи данных.
| 