TChartのマニュアルには円グラフのものは載っているのですが、棒グラフや
面グラフのものは見あたりません。あまりに簡単なものですいませんがＵＰ
いたしました。

■説明
1.Form1にTChartコンポーネントを置きます。
2.TChartで右クリックして「チャートの編集」を選びます。
3.系列の追加でxy軸のあるものを選びます。
4.Form1にTEditとTButtonを置きます。
5.Button1のClickイベントに以下のコードを書きます。

■サンプルコード
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Edit1: TEdit;
    Button1: TButton;
    Series1: TAreaSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
  var
     x:integer; //横軸の数値
     i:integer; //Loop用一時変数
  begin
     x:= StrToInt(Edit1.Text);　//代入
     //以下グラフ処理
       Series1.Clear;
       Chart1.Page:= x;  //横軸の表示数を合わせる
       for i:= 1 to x do
         begin
            Series1.addxy(i,(x * i),'',clTeeColor);
         end;
  end;
end. 

                   97/10/22(Wed) ワカシ  QZE02267@niftyserve.or.jp  
                                       

Original document by ワカシ          氏 ID:(QZE02267)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。