Как работать с Teechart?

DeDe

В скрипте пишу:

Form1Chart1.Title.Text.Clear;
Form1Chart1.Title.Text.Add('TeeChart');
s := TLineSeries.Create(nil);
s.Clear;
s.Title := 'Chart Linie 1';
s.XValues.DateTime := True;
s.AddXY(3,5);
Form1.Chart1.AddSeries(s);

Ругается на s.AddXY(3,5) и на Form1.Chart1.AddSeries(s) - Undeclared identifier.

Что я не так делаю?

gpi

begin
Chart1.AddSeries(csBar);
with Chart1.SeriesData[0] do
begin
DataType := dtFixedData;
XSource := '1;2;3;4;5;6';
YSource := '1;2;3;4;5;6';
end;
end.
или
Chart1.AddSeries(csBar);
with Chart1.SeriesData[0] do
begin
DataType := dtDBData;
DataSet := ADOTAble1;
XSource := 'ADOTable1."CustNo"';
YSource := 'ADOTable1."Company"';
end;

DeDe

gpi, все-равно, "ругается" на AddSeries. Может нужно как-то добавить эту функцию (процедуру)? Читал что-то про CallMethod, но ни чего не понял.

gpi

версия FR последняя?

DeDe

FR 4.7, если не ошибаюсь

gpi

В 4.7 создание серий в скрипте не было реализовано

DeDe

Обидно

DeDe

Сделал так (не совсем то что нужно, конечно, но для начала и так пойдет):


Delphi:

procedure AddXY_to_Chart(x1,y1: real);
begin
Form1.Chart1.Series[0].AddXY(x1,y1);
end;

function TForm1.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant;
begin
AddXY_to_Chart(Params[0], Params[1]);
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
With Form1.fsScript1 do
begin
Clear;
Lines.Text:=Form1.fsSyntaxMemo1.Lines.Text;
Parent := fsGlobalUnit;
AddMethod('procedure AddXY_to_Chart(x1,y1: real)', CallMethod);

SyntaxType:='PascalScript';
if not Compile then
begin
try
ShowMessage('Ошибка инициализации скрипта: '+ErrorMsg);
finally
end;
end
else
Execute;
end;
end;


Скрипт:

var
i: integer;
begin
for i:=0 to 1000 do
begin
AddXY_to_Chart(Random*100,Random*100);
end;
end.

DeDe

Прошу критики

DeDe

Тут в Cart уже заранее серия стоит.

DeDe

Думаю, что подобным образом можно и серии добавлять