{超初歩　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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。