关于在delphi中使用tchart遇到的怪问题! (200分)

  • 主题发起人 主题发起人 kasa
  • 开始时间 开始时间
K

kasa

Unregistered / Unconfirmed
GUEST, unregistred user!
以下代码在qry_cx 有多条记录(两条或以上)。运行没问题,可是当只有一条数据时
就提示指针错误!是什么原因?怎么解决? 为什么把TFastLineSeries换成TBarSeries
就不会发生相同的问题?
Myline:TFastLineSeries;
begin
Myline:=TFastLineSeries.Create( Self );
Myline.ParentChart:=Chart1;
Myline.marks.Visible:=false;
while not qry_cx.Eofdo
begin
Myline.add(qry_cx.fields[2].asfloat,qry_cx.fields[2].asstring);
qry_cx.next;
end;
myline:=nil;
 
下面的代码除了没有连接数据库外,功能应该是一样的,没有问题.
问题是不是和数据库有关?
procedure TForm1.Button1Click(Sender: TObject);
var
ls : TLineSeries;
begin
ls := TLineSeries.Create(self);
ls.marks.Visible:=false;
ls.ParentChart := chart1;
ls.Add(1,'abc');
//ls.Add(2,'cde');
end;
 
后退
顶部