График Chart Опции

[Mr.Dmitry]

Подскажите пожалуйсто как пользоваться графиком Chart.
И возможно ли связать StringGrid с этим графиком.
Если можно то напишите хотябы примерно как это зделать!

[Reptile]

Вот:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   k : Integer;
begin
for k := 1 to 7 do
  Chart1.Series[0].AddXY(k,StrToFloat(Form1.StringGrid1.Cells[k,1]),' ',clREd);
end;

end.

Вот скрин


P.S. Дробные числа должны быть через запятую "4,231".

Сообщение отредактировано: Reptile - 9.11.2006 19:07

[мисс_граффити]

P.S. Дробные числа должны быть через запятую "4,231".

Дробные числа должны быть через указанный в Панель инструментов->Языки и региональные стандарты разделитель. У тебя там ",", а у кого-то точка.

Кстати, при "вылазении" за пределы стринггрида была бы Access Violation Error, а не Convert Error.

Сообщение отредактировано: мисс_граффити - 9.11.2006 19:24

[Mr.Dmitry]

короч вот что в стрингриде:

Код

i:=i+1;
Kol:=kol+1;
Naimenovanie:=ComboBox1.Text;
Data:=DateTimePicker1.date;
Data_oplati:=DateTimePicker2.date;
Data_Prihoda:=DateTimePicker3.date;
Nomer:=LabeledEdit1.text;
Inn_posyavshika:=LabeledEdit2.Text;
stoimost:=StrToFloat(LabeledEdit3.text);
Kol_Vo_Pokupok:=StrToInt(LabeledEdit4.text);
{-----------------------------------------------------------}
form1.stringgrid1.cells[0,i]:=IntToStr(Kol);
form1.stringgrid1.cells[1,i]:=DateToStr(data);
form1.stringgrid1.cells[2,i]:=DateToStr(data_Oplati);
form1.stringgrid1.cells[3,i]:=DateToStr(data_Prihoda);
form1.stringgrid1.cells[4,i]:=Nomer;
form1.stringgrid1.cells[5,i]:=Naimenovanie;
form1.stringgrid1.cells[6,i]:=Inn_posyavshika;
form1.stringgrid1.cells[7,I]:=FloatToStr(stoimost);
form1.stringgrid1.cells[8,I]:=IntToStr(Kol_Vo_pokupok);
form1.StringGrid1.RowCount:=Kol+1;
{----------------------------------------------------------}
form2.Visible:=false;
LabeledEdit1.Clear;
LabeledEdit2.Clear;
LabeledEdit3.Clear;
LabeledEdit4.Clear
end;

График я пытался построить по примеру Reptile Вот он:

Код

var
i:Integer;
bez : Integer;
begin
    Chart1.Series[0].Clear;
   for i := 1 to StringGrid1.RowCount-1 do
   begin
      bez := 0;
          bez := bez + StrToInt(StringGrid1.Cells[7,i]); // это я так понимаю сумма элементов нужного столбца
     Chart1.Series[0].AddXY(i,bez,'',clRed);
   end;
end;

столбец по которому я строю график имеет тип Real.

Сообщение отредактировано: Mr.Dmitry - 11.11.2006 21:39