お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"TChartの使用例(超初歩)"




{超初歩 TChartの使用例
form1にstringGridとボタンとTChartを配して
usesに Seriesを追加して、}
procedure TForm1.Button1Click(Sender: TObject);
var
   i,k:integer;
   series:array [0..4] of TChartSeries;
begin
   with stringGrid1 do//データを作る
   begin
      for i:=0 to 4 do
      begin
         for k:=0 to 4 do
         begin
            cells[i,k]:=inttostr(i+k*2);
         end;
      end;
   end;
   //グラフを描く
   for i:=0 to 4 do series[i]:=TLineSeries.create(chart1);
   for i:=0 to 4 do chart1.addseries(series[i]);
   for i:=0 to 4 do series[i].parentchart:=chart1;

   for i:=0 to 4 do
   begin
      series[0].addxy(i,strtoint(stringGrid1.cells[i,0]),'',clwhite);
      series[1].addxy(i,strtoint(stringGrid1.cells[i,1]),'',clred);
      series[2].addxy(i,strtoint(stringGrid1.cells[i,2]),'',clblue);
      series[3].addxy(i,strtoint(stringGrid1.cells[i,3]),'',clgreen);
      series[4].addxy(i,strtoint(stringGrid1.cells[i,4]),'',clYellow);
   end;
end;

                                    97/10/22(水) 23:36 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)


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

Copyright 1996-2002 Delphi Users' Forum