Problem mit TChart, Function High

[marabu]

Hallo Thomas,

so geht es ohne Exception:

Delphi-Quellcode:

procedure TMainForm.ActionButtonClick(Sender: TObject);
var
  ls: TLineSeries;
  i: integer;
begin
  ls := TLineSeries.Create(myChart);
  myChart.AddSeries(ls);
  for i := 1 to 10 do
    with ls do
      AddXY(i, Random(100));
end;

Grüße vom marabu