استغلال مكون TChart لعرض بيانات - نسخة قابلة للطباعة

PHP كود :
(*Open a new project inser TChart component and follow this instructions:
    * Double click on chart, then you will see chart editing dialog box.
    * Click add button in series tab sheet.
    * Select the chart style from the list (Line, Bar, Pie ..)*)
  
procedure TForm1.Button1Click(Sender: TObject);
begin
     { function AddXY(Const AXValue, AYValue: Double;
     Const AXLabel: String; AColor: TColor) : Longint;

     This function inserts a new point in the Series.
     The new point has X and Y values. The AXLabel
     parameter is optional (can be empty ''). The AColor
    parameter is optional (can be clTeeColor).
     The function returns the new point position in the
     Values list. }
     Chart1.Series[0].AddXY(10, 20, '', clTeeColor);
     Chart1.Series[0].AddXY(15, 50, '', clTeeColor);
     Chart1.Series[0].AddXY(20, 30, '', clTeeColor);
     Chart1.Series[0].AddXY(25, 70, '', clTeeColor);
     Chart1.Series[0].AddXY(30, 10, '', clTeeColor);
     Chart1.Series[0].AddXY(35, 50, '', clTeeColor);
     Chart1.Series[0].AddXY(40, 45, '', clTeeColor);
     Chart1.Series[0].AddXY(45, 10, '', clTeeColor);

     { Or you can write following code using "With" statement.
     Its much easier than repeating everything again and again.

         With Chart1.Series[0] Do
         Begin
            AddXY(10, 20, '', clTeeColor);
             AddXY(15, 50, '', clTeeColor);
             AddXY(20, 30, '', clTeeColor);
             AddXY(25, 70, '', clTeeColor);
             AddXY(30, 10, '', clTeeColor);
             AddXY(35, 50, '', clTeeColor);
             AddXY(40, 45, '', clTeeColor);
             AddXY(45, 10, '', clTeeColor);
         End;
     }
end;