Как работать с Teechart?
В скрипте пишу:
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.
Что я не так делаю?
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.
Что я не так делаю?
Комментарии
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;
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.