L
landa8888
Unregistered / Unconfirmed
GUEST, unregistred user!
如下代码是实现图形的,当我执行一次时显示图形,但执行一次时却现在两个一样的图形??
with TBarSeries.Create(Self) do
begin
Marks.Style:= smsValue;
Dmlsb.adoqTotalSell.First;
while not Dmlsb.adoqTotalSell.Eof do
begin
Add(Dmlsb.adoqTotalSell['ta'],Dmlsb.adoqTotalSell['tb'],SeriesColor);
Dmlsb.adoqTotalSell.Next ;
end;
ParentChart:= DBChart1;
SColor:= SeriesColor;
end;
请问在第二次执行前是否能先清空TBarSeries的显示
with TBarSeries.Create(Self) do
begin
Marks.Style:= smsValue;
Dmlsb.adoqTotalSell.First;
while not Dmlsb.adoqTotalSell.Eof do
begin
Add(Dmlsb.adoqTotalSell['ta'],Dmlsb.adoqTotalSell['tb'],SeriesColor);
Dmlsb.adoqTotalSell.Next ;
end;
ParentChart:= DBChart1;
SColor:= SeriesColor;
end;
请问在第二次执行前是否能先清空TBarSeries的显示