private
Count: Integer; <-- 이 부분을 추가
procedure TForm1.FormCreate(Sender: TObject);
begin
Count := 0; <-- 초기화
end;
챠트에 값 추가시
Series1.AddXY(Count, Random(200), '1', clGreen);
Inc(Count);
if Series1.Count = 10 then
Series1.Delete(0);
Add() 로 하니 오류가 나네요. 아마도 티챠트의 내부 버그인듯 합니다.
티나 님이 쓰신 글 :
: 제가 티차트를 트렌드처럼 만들려고 하거든요
: 그래서 코딩을 아래처럼 했거든요
:
: series1.RefreshSeries;
: Series1.add(Random(200), '1', clGREEN);
:
: if Series1.Count = 10 then
: Series1.Delete(0);
:
: 시리즈가 10개가 되면 시리즈0번을 삭제하자나요
: 그런데 삭제만 되고 추가는 안되는데 왜그런거죠
:
: 삭제되고 난후에도 카운트는 10이더라구요
|