Tchart导出问题！请帮帮忙(50分)

我想用Tchart导出当前的图表数据，如*.tee文件，以后还可以把那个图表数据装进回Tchart.请问怎样操作？

给你看一段demo.
这代码是把一个chart存入内存流，然后马上就恢复到另外一个chart，我觉得你修改了就可以使用。
procedure TTemplateChart.Button2Click(Sender: TObject);
var tmp : TMemoryStream;
{$IFDEF CLR}
tmpChart : TCustomChart;
{$ENDIF}
begin
{ 1) Save the template into a Stream... }
tmp:=TMemoryStream.Create;
try
{ save only Chart and Series formatting, NOT including data }
SaveChartToStream(TemplateChart,tmp,False);

{ 2) Load the template into other Chart... }
tmp.Position:=0; { <-- set stream position to beggining of stream }

{$IFDEF CLR}

tmpChart:=TCustomChart(Chart1);
LoadChartFromStream(tmpChart,tmp);
Chart1:=TChart(tmpChart);

{$ELSE}
LoadChartFromStream(TCustomChart(Chart1),tmp);
{$ENDIF}

{ restore the chart alignment (in this example) }
Chart1.Align:=alClient;

{ repaint the Chart }
Chart1.Repaint;
finally
{ remove the stream, it's no longer necessary... }
tmp.Free;
end;
end;

是否可以导出tee扩展名文件。因为我过些日子想把保存的数据又装回到Tchart里。

这里是完整代码。
你可以使用的。
procedure TMarksPositions.Button1Click(Sender: TObject);
begin
SaveChartDialog(Chart1);
end;

procedure TMarksPositions.Button2Click(Sender: TObject);
{$IFDEF CLR}
var tmp : TCustomChart;
{$ENDIF}
begin
inherited;
With OpenDialog1 do
if Execute then
begin
{$IFDEF CLR}
tmp:=TCustomChart(Chart1);
LoadChartFromFile(tmp,FileName);
Chart1:=TChart(tmp);
{$ELSE}
LoadChartFromFile(TCustomChart(Chart1),FileName);
{$ENDIF}
end;
end;

TO：zywcd
我的Chart没有SaveChartDialog这个函数，我的是teechart pro 7.06

use teestore ?

忘记给你说一句话了，
uses TeeStore,TeeEditPro

谢谢，明白了，我试试。OK送分

接受答案了.