Вторник, 21.11.2017, 09:20
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » Построение графиков TChart, TDBChar » Работа с рядами данных (Series)

Экспорт данные из TChart в Excel, Text, XML, Html

Модуль 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. Код при этом получится тривиальным, загрузка будет происходить большее время, но присутствует большая гибкость в управлении передачи данных.

Категория: Работа с рядами данных (Series) | Добавил: delphi (17.03.2010)
Просмотров: 6947 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
Работа с осями (TChart, TDBChart) [2]Работа с рядами данных (Series) [2]
Пример [2]Справочное руководство [3]
Legend [1]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2017