Сообщение об ошибке

Deprecated function: The each() function is deprecated. This message will be suppressed on further calls в функции menu_set_active_trail() (строка 2405 в файле /home/kpaco123/e-helper/includes/menu.inc).

Приклад практичної роботи 7

 

Приклад практичної роботи 7

 

Практичну роботу 7 можна реалізувати наступним чином.

 

Вигляд першої та другої вкладки додатку.

 

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart,

  Buttons;

 

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Label3: TLabel;

    Label4: TLabel;

    TrackBar3: TTrackBar;

    TrackBar4: TTrackBar;

    Chart1: TChart;

    Series1: TLineSeries;

    Series2: TLineSeries;

    Chart2: TChart;

    Series3: TBarSeries;

    procedure TrackBar3Change(Sender: TObject);

    procedure TrackBar4Change(Sender: TObject);

    procedure recalcbars;

    procedure recalclines;

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.recalclines;

Var

 i:Integer;

 qd,qs:Real;

Begin

 Chart1.Series[0].Clear;

 Chart1.Series[1].Clear;

for i:=TrackBar3.Min to TrackBar3.Max do

 Begin

  qs:=1600+100*i;

  qd:=4750-350*i;

  Chart1.Series[0].AddXY(i,qs);

  Chart1.Series[1].AddXY(i,qd);

 End;

 Chart1.Repaint;

End;

 

procedure TForm1.recalcbars;

Var

 qd,qs:Real;

Begin

 qd:=4750-350*StrToInt(Label3.Caption);

 qs:=1600+100*StrToint(Label4.Caption);

 Chart2.Series[0].Clear;

 Chart2.Series[0].Add(qd,'Qd');

 Chart2.Series[0].Add(qs,'Qs');

 Chart2.Repaint;

End;

 

procedure TForm1.TrackBar3Change(Sender: TObject);

begin

 Label3.Caption:=IntToStr(TrackBar3.Position);

 recalcbars;

end;

 

procedure TForm1.TrackBar4Change(Sender: TObject);

begin

 Label4.Caption:=IntToStr(TrackBar4.Position);

 recalcbars;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin

 recalcbars;

 recalclines;

end;

 

end.