Emma Опубликовано 19 мая, 2022 Опубликовано 19 мая, 2022 (изменено) Добрый вечер! Неполучаеться создать динамически обект 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' и показывает на инициализацию формы Изменено 20 мая, 2022 пользователем Emma Цитата
0 Tumaso Опубликовано 20 мая, 2022 Опубликовано 20 мая, 2022 Для начала нужно исправить ошибку с отсутствием модуля Unit2. Тут либо указан неправильный путь к этому модулю, либо модуль переименован, либо вообще отсутствует. Цитата
0 Emma Опубликовано 20 мая, 2022 Автор Опубликовано 20 мая, 2022 (изменено) 1 час назад, Tumaso сказал: Для начала нужно исправить ошибку с отсутствием модуля Unit2. Тут либо указан неправильный путь к этому модулю, либо модуль переименован, либо вообще отсутствует. вот инициализация модуля 2 program al; uses System.StartUpCopy, FMX.Forms, Userlarmforn in 'Userlarmforn.pas' {Form1}, other in 'other.pas' {Form2}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end. он выделяет вот эту строку other in 'other.pas' {Form2}; Как возможно исправить Изменено 20 мая, 2022 пользователем Emma Цитата
0 Emma Опубликовано 20 мая, 2022 Автор Опубликовано 20 мая, 2022 (изменено) Проблема решена, указатель, показывал не в ту степь: проблема была не в инициалиазации, а в модуле uses первой формы, где содержалось указание на старое название. Изменено 20 мая, 2022 пользователем Emma Цитата
Вопрос
Emma
Добрый вечер! Неполучаеться создать динамически обект 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'
и показывает на инициализацию формы
Изменено пользователем Emma3 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.