W
w98657
Unregistered / Unconfirmed
GUEST, unregistred user!
提示:Undeclared identifier: 'AddArrow'但是在help文件里面,是有这个函数的。如下:AddArrow ExampleThis code fills an ArrowSeries with two random arrows:var x0,y0,x1,y1 :do
uble;
begin
ArrowSeries1.StartXValues.DateTime:=False; ArrowSeries1.EndXValues.DateTime:=False; ArrowSeries1.Clear; x0 :=Random( 1000 ); y0 :=Random( 1000 ); x1 :=x0 + Random( 1000 ) - 500 ; y1 :=y0 + Random( 1000 ) - 500 ; ArrowSeries1.AddArrow( x0, y0, x1, y1, '', clBlue); x0 :=Random( 1000 ); y0 :=Random( 1000 ); x1 :=x0 + Random( 1000 ) - 500 ; y1 :=y0 + Random( 1000 ) - 500 ; ArrowSeries1.AddArrow( x0, y0, x1, y1, '', clYellow);
end;
uble;
begin
ArrowSeries1.StartXValues.DateTime:=False; ArrowSeries1.EndXValues.DateTime:=False; ArrowSeries1.Clear; x0 :=Random( 1000 ); y0 :=Random( 1000 ); x1 :=x0 + Random( 1000 ) - 500 ; y1 :=y0 + Random( 1000 ) - 500 ; ArrowSeries1.AddArrow( x0, y0, x1, y1, '', clBlue); x0 :=Random( 1000 ); y0 :=Random( 1000 ); x1 :=x0 + Random( 1000 ) - 500 ; y1 :=y0 + Random( 1000 ) - 500 ; ArrowSeries1.AddArrow( x0, y0, x1, y1, '', clYellow);
end;