1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| unit ess;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
TForm9 = class(TForm)
Chart1: TChart;
Series1: TFastLineSeries;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form9: TForm9;
i:integer;
X:real;
implementation
begin
showmessage('hi');
x:=0;
for i := 0 to 10 do
begin
x:=x+5;
showmessage('x');
with Series1 do
begin
addxy(i,x);
end
end
{$R *.dfm}
end. |
Partager