Delphi chart control curve display abnormal grant instruction-CodePudding

The implementation code is as follows:
For: x=0 to 9 do
Form1. Chart1. SeriesList. Items. [0] Addxy (x, strtoint (memo10. Lines [j - 10 + x]));

CodePudding user response:

You mistake, may be Y agv & lt; 800 and your values & gt; The value 800, resulting in a line,

CodePudding user response:

Before you start painting every curve, the curve to empty first,

 
Form1. Chart1. SeriesList. Items [0]. The Clear; 
For: x=0 to 9 do 
Form1. Chart1. SeriesList. Items. [0] Addxy (x, strtoint (memo10. Lines [j - 10 + x]));