读书人

画TCHART,该怎么解决

发布时间: 2012-03-19 22:03:05 作者: rapoo

画TCHART
请教如何用DELPHI打开一个文本文件,并将里面的数据显示在TCHART上成一条曲线,

中间一列为X轴数据,后面一列为Y轴数据

文本内容如下:

05LCpoints=50
05LC0035HLR 20.2741 5.0079
05LC0036HLR 20.7000 5.0080
05LC0037HLR 21.1348 5.0076
05LC0038HLR 21.5787 5.0063
05LC0039HLR 22.0320 5.0070
05LC0040HLR 22.4947 5.0081
05LC0041HLR 22.9672 5.0100
05LC0042HLR 23.4497 5.0122
05LC0043HLR 23.9422 5.0154
05LC0044HLR 24.4451 5.0177
05LC0045HLR 24.9586 5.0207
05LC0046HLR 25.4828 5.0240
05LC0047HLR 26.0181 5.0279
05LC0048HLR 26.5646 5.0317
05LC0049HLR 27.1226 5.0350
05LC0050HLR 27.6922 5.0374
05LC0051HLR 28.2739 5.0392
05LC0052HLR 28.8678 5.0396
05LC0053HLR 29.4742 5.0400
05LC0054HLR 30.0933 5.0409
05LC0055HLR 30.7253 5.0422
05LC0056HLR 31.3707 5.0436
05LC0057HLR 32.0297 5.0457
05LC0058HLR 32.7024 5.0475
05LC0059HLR 33.3893 5.0492
05LC0060HLR 34.0907 5.0511
05LC0061HLR 34.8067 5.0531
05LC0062HLR 35.5378 5.0548
05LC0063HLR 36.2843 5.0568
05LC0064HLR 37.0464 5.0592
05LC0065HLR 37.8246 5.0619

[解决办法]
如果你读文件没有问题的话,
使用series.ADDXY函数就可以了
[解决办法]
chart上添加数据就是series[0].ADDXY,读取文件,可以用TStringList直接LoadFile,然后每行解析出来后面的数据,如何解析,可以直接pos+copy取得,或者用TStringList去分割
[解决办法]
因为我不知道你第一行是干吗的,所以不处理第一行,将其他行数据保存到 c:\1.txt下测试如下

Delphi(Pascal) code
var  list,listvalue:TStringList;  i:Integer;begin  list := TStringList.Create;  list.LoadFromFile('c:\1.txt');  listvalue := TStringList.Create;  for i := 0 to list.Count - 1 do  begin    listvalue.Delimiter := ' ';    listvalue.DelimitedText := list.Strings[i];    Chart1.SeriesList[0].AddXY(StrToFloat(listvalue.Strings[1]),StrToFloat(listvalue.Strings[2]));  end;  list.Free;  listvalue.Free;end; 

读书人网 >.NET

热点推荐