Нужно сохранить значения графика из tchart в файл .txt

[Никита757]

Код такой

Var k:integer; begin 
For k:=0 to 100 do
Chart1.serieslist[0].addxy(k,2*sqrt(sqr(cos(k*pi*0.1))),' ', clred); 
End;

Все это описано в кнопке, подскажите пожалуйста как дополнить данный код?

[Stilet]

Var k:integer; begin 
with TStringList.Create do begin
 For k:=0 to 100 do begin
  y:=2*sqrt(sqr(cos(k*pi*0.1)));
  Chart1.serieslist[0].addxy(k,y,' ', clred); 
  Append(Format('%5d%20.3f',[k,y]))
 end;
 SaveToFile('Файлик.txt');Free;
end;
End;

Годится?

[Никита757]

Stilet, еще такой вопрос он в блокнот сохранит значения?

К какому типу 'y' отнести?

[Stilet]

он в блокнот сохранит значения?

Нет. В текстовый файл.

К какому типу 'y' отнести?

Какой тип имеют параметры для addxy()?