erfgsergsergsregsrega00
sergsergsergsergsergsergsergser
aergsergsergaerga00
aerfaerfaerfa
aergsaergaergaergar00
比如上面这个文本内容,要把每一行最后两个为0的挑出来,具体该怎么做?
sergsergsergsergsergsergsergser
aergsergsergaerga00
aerfaerfaerfa
aergsaergaergaergar00
比如上面这个文本内容,要把每一行最后两个为0的挑出来,具体该怎么做?
解决方案 »
- ReportBuilder设计时为什么没有data和calc页
- 请问怎样用quickreporter实现分组打印?急!请知道的不吝赐教,谢谢
- 在delphi7.0中TQuickRep对象怎么找
- 用ADO连接Access,Access密码怎样设置,ADO连接又怎样设置?
- 两条sql 语句的区别?(大家帮忙过来看一下)
- 非常怪异的一个问题,搞糊涂了!!
- 导航条
- 强行关机会影响电脑寿命吗?想做个定时关机的软件
- 请问如何判断窗体是否存在?若不存在则creatform(Tform1 ,form1),急急急!!!
- 关于发mail控件问题
- 开发Windows程序方面,C#与Delphi哪个强?
- 有没有子串在字符串中出现次数的函数
afile : Tstrings;
I : Integer;
begin
afile := TStringlist.create;
afile.locadformfile('a.txt') ;
for I := 0 to afile.count -1 do
showmessage(Copy(afile[i],length(afile[i])-2,2));
end;
s:string;
begin
assignfile(f,'filename');
reset(f);
while not eof(f) do
begin readln(f,s);
if (s[length(s)]='0') and (s[length(s)-1]='0') then writeln (s[length(s)-1],s[length(s)]); end;
closefile(f);声明:以上为超级烂的代码