Добрый вечер! Неполучаеться создать динамически обект series Пробовала так:
Var MySeries : TLineSeries ;
MySeries := TLineSeries.Create( Self );
MySeries.ParentChart := Chart1 ;
Когдаделаю так то первый момент работает после сохрания
unit other;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMXTee.Engine,
FMXTee.Procs, FMXTee.Chart, FMX.Edit, FMX.StdCtrls, FMX.Controls.Presentation,
FMXTee.Series;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Edit1: TEdit;
Chart1: TChart;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
H,n,f:integer;
Series:TLineSeries;
implementation
{$R *.fmx}
procedure TForm2.Button1Click(Sender: TObject);
begin
H:=H+1;
n:=strtoint(edit1.Text);
F:=System.Random(n);
label1.Text:=inttostr(F);
randomize;
Series.AddX(H);
Series.AddY(F);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Series:=TLineSeries.Create(self);
Series.Name:='Series1';
Series.ParentChart:=Chart1;
Series.Title:='Line';
Chart1.View3D:=false
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Chart1.ClearChart;
end;
end.
ошибка которю выдает:
[dcc32 Fatal Error] al.dpr(7): F2613 Unit 'Unit2' not found.
al.dpr(7): Unit 'Unit2' is used by 'Userlarmforn'
и показывает на инициализацию формы