Построениие по данным

[xJohnx]

Есть компонент ДБэдит в который автоматически выводит сумму данных из таблицы... мне нужно построить график сравнивая этотэдит с ограничением

Если в ДБэдит будет 10000 то построить такой график, если 8000- такойто и т.д...
Ex.rar

[Stilet]

Ну так а в чем сложности? В проверке значения в Эдите или в построении графика?

function formulaSin(x:double):double;begin result:=sin(x);end;
function formulaCos(x:double):double;begin result:=Cos(x);end;

procedure TForm1.DBEdit1Change(Sender: TObject);
type f=function(x:double):Double;
var a:double;af:f;
begin
 if DBEdit1.Text='1' then af:=formulaSin else af:=formulaCos;
 Series1.Clear;
 a:=0;while a<(pi*2) do begin Series1.AddXY(a,af(a));a:=a+pi/10;end;
end;

Идея понятна?

[xJohnx]

Сообщение от Stilet

Ну так а в чем сложности? В проверке значения в Эдите или в построении графика?

function formulaSin(x:double):double;begin result:=sin(x);end;
function formulaCos(x:double):double;begin result:=Cos(x);end;

procedure TForm1.DBEdit1Change(Sender: TObject);
type f=function(x:double):Double;
var a:double;af:f;
begin
 if DBEdit1.Text='1' then af:=formulaSin else af:=formulaCos;
 Series1.Clear;
 a:=0;while a<(pi*2) do begin Series1.AddXY(a,af(a));a:=a+pi/10;end;
end;

Идея понятна?

можешь в код добавить??

[Stilet]

Нет не могу. DBEdit не использую принципиально.
Жаль что ты не усек.

[xJohnx]

Нужно нарисовать элиипс в делфи

Вот парабола...
такой код

procedure TForm1.x2py1Click(Sender: TObject);
var
i,y:integer;
p,x:real;
s:string;
begin
p:=1;
y:=30;
x:=-4;
ChartFX1.OpenDataEx(COD_VALUES,1,y) ;
for i:=0 to y-1 do
begin
ChartFX1.Value:=x*x/(2*p);
x:=x+0.3;
end;