char.pas

delphi renyuanguanlixinxioxitong

unit char;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TBarSeries;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var i :integer;
begin
  Series1.Clear ;
  i :=1;
  while i<=8 do
  begin
     Series1.Add(i,'坐标'+trim(IntToStr(i)),clTeeColor) ;
     i := i+1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j :integer;
begin
  Series1.Clear ;
  i :=1;
  while i<=8 do
  begin
     j := i+3;
     Series1.AddXY(i,j,'坐标'+trim(IntToStr(i)),clTeeColor) ;
     i := i+1;
  end;
end;

end.