关于dbchart

Question

我想动态创建Series为饼状，如何写，现在只能创建柱状

Answer 1

var mypie tpieseries;begin
 mypie := Tlineseries.Create(nil);
    with mypie do
    begin
    Marks.Visible:=true;
    Marks.Style:=smsValue;
    Marks.Transparent:=true;
    s.Frame.Visible:=false;
    s.Font.Color:=clgreen;
    Marks.visible:=false;
    Pointer.InflateMargins:= True;
    Pointer.Style := psRectangle;
    Pointer.Visible := true;
    s.ArrowLength:=20-xx;
    s.Font.size:=12;
    s.Font.style:=[fsbold];
     end;
     mypie.ParentChart := dbchart1;
     mypie.Active := True;

Answer 2

var mypie :tpieseries;begin
 mypie := Tpieseries.Create(nil);
    with mypie do
    begin
    Marks.Visible:=true;
    Marks.Style:=smsValue;
    Marks.Transparent:=true;
    s.Frame.Visible:=false;
    s.Font.Color:=clgreen;
    Marks.visible:=false;
    Pointer.InflateMargins:= True;
    Pointer.Style := psRectangle;
    Pointer.Visible := true;
    s.ArrowLength:=20-xx;
    s.Font.size:=12;
    s.Font.style:=[fsbold];
     end;
     mypie.ParentChart := dbchart1;
     mypie.Active := True;