Изменение диаграммы по таблице.

[sinobithug]

Нужно сделать так чтобы при изменении таблицы изменялась диаграмма.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Chart1: TChart;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Series3: TBarSeries;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
Chart1.Visible:=true;


end;

procedure TForm1.N2Click(Sender: TObject);
 Var
x,y,z:real;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
StringGrid1.Visible:=true;
Stringgrid1.Cells[1, 1]:=FloatToStr(x);
Stringgrid1.Cells[1, 2]:=FloatToStr(x+y);
Stringgrid1.Cells[1, 3]:=FloatToStr(x+y+y);
Stringgrid1.Cells[1, 4]:=FloatToStr(x+y+y);
Stringgrid1.Cells[2, 1]:=FloatToStr(x+z);
Stringgrid1.Cells[2, 2]:=FloatToStr(x+z);
Stringgrid1.Cells[2, 3]:=FloatToStr(x+y);
Stringgrid1.Cells[2, 4]:=FloatToStr(x+y+y);
Stringgrid1.Cells[3, 1]:=FloatToStr(x+z+z);
Stringgrid1.Cells[3, 2]:=FloatToStr(x+z);
Stringgrid1.Cells[3, 3]:=FloatToStr(x);
Stringgrid1.Cells[3, 4]:=FloatToStr(x+y);
Stringgrid1.Cells[4, 1]:=FloatToStr(x+z+z+z);
Stringgrid1.Cells[4, 2]:=FloatToStr(x+z+z);
Stringgrid1.Cells[4, 3]:=FloatToStr(x+z);
Stringgrid1.Cells[4, 4]:=FloatToStr(x);
end;

end.

[Neeter]

Ну а что вам мешает в событие onChange у StringGrid'а добавить код обновления диаграммы?

[sinobithug]

код обновления диаграммы?
Какой код?

[sinobithug]

И у StringGridа нет событитя onChange.

[Neeter]

И у StringGridа нет событитя onChange.

Да, нету такого события, onSetEditChange.

А что насчет кода, то, что вам надо? какую диаграмму? я не понимаю.

[sinobithug]

onSetEditChange.

onSetEditText.


какую диаграмму?
Chart

[Neeter]

onSetEditChange.

onSetEditText.

Да, снова описался, без Delphi сижу.

Код обновления диаграммы сказать не могу.

[sinobithug]

Chart1.Refresh неработаеи.

[KSIva]

DBChart1.RefreshData; - вот это работает точно! я на кнопку батон ставила.
Кстати попробовав на edit onchange (после сортировки) обновляет диаграмму сразу же