Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons;
Type
TForm1 = class(TForm)
Label1: TLabel;
Chart1: TChart;
Series1: TLineSeries;
BitBtn1: TBitBtn;
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
end;
Var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
Var
k:integer;
Begin
for k:=0 to 20 do
Chart1.SeriesList[0].AddXY(k,sin(k*pi/10),'',clred);
end;
// кнопка Выход
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
Form1.Close;
end;
end.
Результат выполнения программы приведен на рис. 5.3.
Рис. 5.3. Результат выполнения программы
