tchart 图像显示问题---同时画三种曲线

Question

开始运行正常，三种曲线都能显示，但是在现在却只能显示一种曲线，代码如下：
//转换并存储数据
procedure TForm5.Button3Click(Sender: TObject);
var
k,x,i:integer;
jj:integer;begin
  max1:=-9999.0; max2:=-9999.0; max3:=-9999.0;
  s1:=0.0; s2:=0.0;s3:=0.0;s4:=0.0;s5:=0.0;s6:=0.0;
  s7:=0.0; s8:=0.0;s9:=0.0;s10:=0.0;s11:=0.0;s12:=0.0;
  memo1.Clear;memo2.Clear;memo3.clear;memo4.Clear;
  memo5.Clear;memo6.Clear;memo7.clear;memo8.Clear;
  memo9.Clear;memo10.Clear;memo11.clear;memo12.Clear;
  memo13.Clear;  jj:=0;  for k:=0 to (count div 2)-1 do
  begin
   b[k]:=(a[jj]+256*a[jj+1]);
   jj:=jj+2;
   if b[k]<$8000 then
     begin
       b[k]:=b[k]/32768;
     end
   else
     begin
       b[k]:=(b[k]-65536)/32678;
     end;
  end;   //显示输入电压曲线
  if xuanze=1 then
  begin
      
      Fastlineseries1.Clear;Fastlineseries1.Clear;Fastlineseries1.Clear;
      i:=0;  x:=0;
      while(i<3072) do
      begin
        //Series1.Addxy(x*0.2,b[i],'',clred);  
         Fastlineseries1.AddXY(x*0.2,b[i],'',clred);
        //Series2.Addxy(x*0.2,b[i+1],'',clgreen);
         Fastlineseries2.Addxy(x*0.2,b[i+1],'',clgreen);
        //Series3.Addxy(x*0.2,b[i+2],'',clblue);
        Fastlineseries3.Addxy(x*0.2,b[i+2],'',clblue);
        i:=i+3;
        x:=x+1;
      end;
      i:=0;
      while(i<3072) do
      begin
        s1:=s1+b[i];
        if max1<b[i] then
                  begin
                    max1:=b[i];
                  end;
        memo1.Lines.Add(floattostr(b[i]));
        memo1.lines.savetofile('A相输入电压.txt');
        i:=i+3;
      end;
    m1:=max1;
    v1:=max1/1.414;
    a1:=s1/1024;
    ComboBox2Change(Sender);      i:=1;
      while(i<6144) do
      begin
        s2:=s2+b[i];
        if max2<b[i] then
                  begin
                    max2:=b[i];
                  end;
        memo2.Lines.Add(floattostr(b[i]));
        memo2.lines.savetofile('B相输入电压.txt');
        i:=i+3;
      end;
    m2:=max2;
    v2:=max2/1.414;
    a2:=s2/1024;
    ComboBox3Change(Sender);      i:=2;
      while(i<3072) do
      begin
        s3:=s3+b[i];
        if max3<b[i] then
                  begin
                    max3:=b[i];
                  end;
        memo3.Lines.Add(floattostr(b[i]));
        memo3.lines.savetofile('C相输入电压.txt');
        i:=i+3;
      end;
    m3:=max3;
    v3:=max3/1.414;
    a3:=s3/1024;
    ComboBox4Change(Sender);
  end;
end;

Answer 1

        //Series1.Addxy(x*0.2,b[i],'',clred);  
        Fastlineseries1.AddXY(x*0.2,b[i],'',clred); 
        //Series2.Addxy(x*0.2,b[i+1],'',clgreen); 
        Fastlineseries2.Addxy(x*0.2,b[i+1],'',clgreen); 
        //Series3.Addxy(x*0.2,b[i+2],'',clblue); 
        Fastlineseries3.Addxy(x*0.2,b[i+2],'',clblue); 注释掉的是你自己故意的吧！

Answer 2

我已经改成这样了：
        Fastlineseries1.AddXY(x*0.2,b[i],'',clred); 
 
        Fastlineseries2.Addxy(x*0.2,b[i+1],'',clgreen); 
        Fastlineseries3.Addxy(x*0.2,b[i+2],'',clblue); 
就算以前没有把注释掉的删除应该没有影响吧？