Урок на Делфи 60. Диаграммы и графики (chart).

задание на delphi. Создание графиков и диаграмм.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, Vcl.StdCtrls,
VCLTee.TeEngine, Vcl.ExtCtrls, VCLTee.TeeProcs, VCLTee.Chart, VCLTee.Series;
type
TForm1 = class(TForm)
Chart1: TChart;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Chart2: TChart;
Series2: TBarSeries;
Series1: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for I := 0 to Memo1.Lines.Count-1 do
begin
Series1.AddXY(i,StrToInt(Memo1.Lines[i]));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Series2.AddXY(2,9,'text',clred);
Series2.AddXY(6,3,'text2',clBlue);
end;
end.



Скачать