erfgsergsergsregsrega00
sergsergsergsergsergsergsergser
aergsergsergaerga00
aerfaerfaerfa
aergsaergaergaergar00
比如上面这个文本内容,要把每一行最后两个为0的挑出来,具体该怎么做?

解决方案 »

  1.   

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

  2.   

    var f:textfile;
    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);声明:以上为超级烂的代码
      

  3.   

    方法太多了,你可以通过StringList,也可以直接用Memo或ListBox等控件把文件显式的读取出来,然后循环读取每一行的值,通过RightStr或者其他函数判断最后两位是否是'00'