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'
и показывает на инициализацию формы
Изменено пользователем EmmaСсылка на комментарий
3 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.