6
6ysnow
Unregistered / Unconfirmed
GUEST, unregistred user!
使用tchart画图
procedure TTFrmFlowShow.SetFlowCount(Value: integer);
var
index:integer;
begin
FFlowCount:=Value ;
Series1.Add(FFlowCount);
For index := 0 to Series1.Count-2 do
begin
// Series1.AddXY(Series1.XValues.Last+IncremX, FFlowCount,'ww',$EEFFEE);
Series1.XValues.Value[Index]:=IncremX*(Index);
Series1.yValues.Value[Index] := Series1.yValues.Value[Index+1];
end;
if RecCount>MaxPos then
begin
RecCount:=0;
Series1.Delete(0);
end;
inc(RecCount);
end;
无论怎么样,x轴总是不准确,我想是X轴每一格画一个点,结果是,一格存在多个,
不晓得怎么控制了,哪位大侠帮忙啊!!(分不勾了)
procedure TTFrmFlowShow.SetFlowCount(Value: integer);
var
index:integer;
begin
FFlowCount:=Value ;
Series1.Add(FFlowCount);
For index := 0 to Series1.Count-2 do
begin
// Series1.AddXY(Series1.XValues.Last+IncremX, FFlowCount,'ww',$EEFFEE);
Series1.XValues.Value[Index]:=IncremX*(Index);
Series1.yValues.Value[Index] := Series1.yValues.Value[Index+1];
end;
if RecCount>MaxPos then
begin
RecCount:=0;
Series1.Delete(0);
end;
inc(RecCount);
end;
无论怎么样,x轴总是不准确,我想是X轴每一格画一个点,结果是,一格存在多个,
不晓得怎么控制了,哪位大侠帮忙啊!!(分不勾了)