Перейти к содержанию
Fire Monkey от А до Я
  • 0

Thcart методы delphi непомогают


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
Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Для начала нужно исправить ошибку с отсутствием модуля Unit2. Тут либо указан неправильный путь к этому модулю, либо модуль переименован, либо вообще отсутствует.

Ссылка на комментарий
  • 0
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};

Как возможно исправить

Изменено пользователем Emma
Ссылка на комментарий
  • 0

Проблема решена, указатель, показывал не в ту степь:

проблема была не в инициалиазации, а в модуле uses первой формы, где содержалось указание на старое название.

Изменено пользователем Emma
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...