在delphi 中如何对文本精确查找 请问在delphi中如何精确读取某一行的第三个数,数之间用空格分开,2:如何比较出文本中那些数在我要查找的数的误差之内,比如要查打出80 +/- 3的所有的数(就是77到83之间)初次接触delpi,请大侠指教!谢谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 (鄙视20分就想占2个便宜的-_-!)只回答第一题:1.(1)用Tstringlist将所有行都读进来var sl:Tstringlist; x,i,j:integer;//sl下标从0开始,所以sl[0]即表示第一行 str,result:string;sl.loadfromfile('D:\1.txt');(2)str:=sl[x];(3)这个用pos,或者posEx ,注意用posEx的话要引用类库 uses ...忘了名了。可能是StrUtilsi:=posEx(str,' ',1);//第一个空格位置j:=posEx(str,' ',i+1);//第二个result:=copy(str,j+1,posEx(str,' ',j+1)-j);//Your Result要是多的话就循环做 估计你还是没明白,开的东西太多了,不好进Delphi给你敲完整的呢 1楼有点问题sl:=Tstringlist.create;//初始化str:=sl.Strings[x];//好久没用了,写错了,不好意思 jason_kou 兄弟,对不起哈!第一次在这提问,不知道分数,是系统默认的!还可以加吗? IdFTP.Size的问题 第三方控件TRzCheckTree第三层数据如果被选中变灰不能被修改如何实现? QUERY问题,高手请进! 请教高手:如何将TWebBrowser中浏览的网页连同图文件保存?象IE中的另存一样。 MIDAS如何限制客户端的连接数 为什么C#不支持VCL? 如何随时获取数据库系统登陆者的代码呢? 局域网开机监控求助~ 一直困扰我,无法解决的窗体互相影响如何实现?望各位指点!! 求兼职程序员,软件制作时间两周内 关于处理小数问题 关于Dbgrid导出数据到Excel后自动四舍五入的问题
只回答第一题:
1.
(1)用Tstringlist将所有行都读进来
var
sl:Tstringlist;
x,i,j:integer;//sl下标从0开始,所以sl[0]即表示第一行
str,result:string;sl.loadfromfile('D:\1.txt');
(2)
str:=sl[x];
(3)
这个用pos,或者posEx ,注意用posEx的话要引用类库 uses ...忘了名了。可能是StrUtils
i:=posEx(str,' ',1);//第一个空格位置
j:=posEx(str,' ',i+1);//第二个
result:=copy(str,j+1,posEx(str,' ',j+1)-j);//Your Result
要是多的话就循环做
sl:=Tstringlist.create;//初始化str:=sl.Strings[x];//好久没用了,写错了,不好意思