首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

画TCHART,该怎么解决

2012-03-19 
画TCHART请教如何用DELPHI打开一个文本文件,并将里面的数据显示在TCHART上成一条曲线,中间一列为X轴数据,

画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; 

热点排行