Question

在delphi中，如何实现输入二维数组，在tchart中显示一条曲线，有哪位高手编个程序我参考一下啊

Answer 1

试缩写示例代码供参考：

procedure TForm1.Button1Click(Sender: TObject);
var
  I:integer;
  LineSeries:TLineSeries;
  arrData: array[0..1] of array[0..99] of double;
begin
  //生成2维测试数组
  for i := 0 to 99 do
  begin
    arrData[0,i] := i;
    arrData[1,i] := 100 * sin(i)*cos(4*i);
  end;

  //添加折线图
  LineSeries:=TLineSeries.Create(chart1);
  LineSeries.ParentChart:=chart1;

  for I:=0 to 99 do
     LineSeries.AddXY(arrData[0][I],arrData[1][I]);

  Chart1.SeriesList.Clear;
  chart1.SeriesList.Add(LineSeries);
  Chart1.Title.Caption := '折线图';
end;

代码运行效果截图：