文件读取问题!请大家帮忙!

Question

文件本来就是这么分行的吗？你可以用readln把行读到string,再对string进行处理就可以得到数字了。

Answer 1

是的，这是原文件的一部分。
怎么对string处理，能否写详细点，多谢了！

Answer 2

var
   fText:TextFile;
   strLine:String;
begin
   AssignFile(fText,'c:\Data.txt');
   Reset(fText);
   while not Eof(fText) do
      begin
      readln(fText,strLine);
      strLine:=Trim(strLine);
      if ('98'<>Copy(strLine,1,2)) then
          begin
          是你想要的数据，处理之。
          end;      end;
    CloseFIle(fText);
end;