Delphi Teechart 导出数据格式

1、引用

uses VCLTee.TeeStore

2、添加SaveDialog

3、保存图片

procedure TFormMain.RzButton2Click(Sender: TObject);
begin
  SaveDialog1.filter:='图片(*.bmp)|*.bmp';
  if SaveDialog1.Execute then
    if SaveDialog1.FileName <> '' then
      Chart1.SaveToBitmapFile(SaveDialog1.FileName + '.bmp');
end;

4、保存TXT文件

procedure TFormMain.RzButton3Click(Sender: TObject);
var
  seriesData: TSeriesDataText;
begin
  SaveDialog1.filter:='文件(*.txt)|*.txt';
  if SaveDialog1.Execute then
  begin
    if SaveDialog1.FileName <> '' then
    begin
      try
        seriesData := TSeriesDataText.Create(Chart