dbchartdaki görüntünün silinip tekrar sıfırdan çizilmesi

[kazimates]

with ADOQuery4 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE where LACT=0');
active:=True;
topkay0:=recordcount;
end;
if topkay0=0 then
begin
DBChart1.SeriesList[0].Active:=False;
end
else
begin
for i:=1 to topkay0 do
begin
DBChart1.SeriesList[0].Addy((ADOURETIMTABLE.FieldByName('SUT')).AsInteger);
ADOUretimTable.Next;
end;
end;
şeklinde bir kodum var ve bu çizelge hazırla diye bir butonun altında fakat butona bir defa basıldığında çizim doğru olarak karşımıza geliyor ama tekrar 2. bir defa butona tıkladığımızda çizelge sol kenardan tekrar çizmeyip en son çizginin kaldığı yerden devam ediyor bunu acaba nasıl düzeltebiliriz?

[mrmarman]

Selam.. Öncelikle iyi bayramlar...

- ilk satır olarak

Kod: Tümünü seç

  DBChart1.SeriesList[0].Clear;

eklerseniz her butona basıldığında Seri'ye eklediğiniz değerleri temizlemiş olacaksınız...

[kazimates]

procedure TForm1.Button1Click(Sender: TObject);
var
i,topkay:integer;
begin
DbChart1.Series[0].Clear;
DbChart1.Series[1].Clear;
ADOUretimTable.Active:=False;
ADOUretimTable.Active:=True;

with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE where LACT=0');
active:=true;
topkay:=recordcount;
end;

Edit1.Text:=inttostr(topkay);

DBChart1.Title.Text.Clear;
DBChart1.Title.Text.Add ('SÜT LAKTASYON ÇİZELGESİ');
DBChart1.LeftAxis.Title.Caption := 'SÜT lt.';
for i:=1 to topkay do
begin

DBChart1.SeriesList[0].Addy((ADOURETIMTABLE.Fieldbyname('SUT')).asinteger);
ADOUretimTable.Next;
end;
with adoquery2 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE where LACT=1');
active:=true;
topkay:=recordcount;
end;

for i:=1 to topkay do
begin
DBChart1.SeriesList[1].Addy((ADOURETIMTABLE.Fieldbyname('SUT')).asinteger);
ADOUretimTable.Next;
end;

end;


diye kodu değiştirince istediğim sonucu elde edebildim. herkese ilgilerinden dolayı teşekkür ederim.