Witam wszystkich, mój programik pobieta kilka liczb z pliku, i rysuje do nich wykres za pomoca komponentu Chart. A teraz mam problem z zapisaniem gotowego wykresu do pliku ?. Czy wie ktos jak to zrobic ?. Jest polecenie SaveChartToFile ale nie bardzo potrafie sie nim posłużyc i jak go dodać. Prosze o pomoc.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series, OleCtrls, VCFI;
type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TBarSeries;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
plik: TextFile;
i:integer;
wartosc:string;
begin
AssignFile(plik,'C:\liczby.txt');
Reset(plik);
i:=0;
with Series1 do
begin
while not eof(plik) do
begin
i:=i+1;
readln(plik,wartosc);
Add(StrToInt(wartosc),IntToStr(i),clRed);
end;
end;
end;
end.