怎样将TChart存入文件,关于SaveChartToFile方法?(100分)

在Delphi 5中,TChart有一个方法SaveChartToFile,
但需要teeStore单元,可是我找不到teeStore.dcu文件.

可以将它存为BMP或WMF文件呀。

Hexi:
我的意思是在Runtime修改了Chart的特性,而在下次运行时能恢复
这些特性,Save to BMP不行.

你要记录TChart所有的参数值，下次读入就可以了。

呵呵, 就是, 而且可以找找teechart的完全版呀

用TWriter和TReader配合TStream。好象可以保存Component的属性。
如：
procedure WriteChart;
var
W:TWriter;
F:TFileStream;
begin
F:=TFileStream.Create('aa.dat',fmCreate);
W:=TWriter.Create(F,4096);
W.WriteComponent(Chart1);
W.Free;
F.Free;
end;

procedure ReadChart;
var
R:TReader;
F:TFileStream;
begin
F:=TFileStream.Create('aa.dat',fmOpenRead);
R:=TReader.Create(F,4096);
Chart1:=R.ReadComponent(nil);
R.Free;
F.Free;
end;

上面程序没有验证。

Hexi:
你的办法很好,谢谢!
只是在Write和Read一个TChart对象时,由于TChart是一个
对象树,故应使用:
procedure TForm1.WriteChart;
var W:TWriter;
F:TFileStream;
begin
F:=TFileStream.Create('aa.dat',fmCreate);
W:=TWriter.Create(F,4096);
W.WriteRootComponent(dbChart1);
W.Free;
F.Free;
end;

procedure TForm1.ReadChart;
var
R:TReader;
F:TFileStream;
begin
F:=TFileStream.Create('aa.dat',fmOpenRead);
R:=TReader.Create(F,4096);
R.ReadRootComponent(dbchart1);
R.Free;
F.Free;
end;