while not eof <br> readln ;<br> if not_your_line then<br> begin<br> copyto(line_originfile ,line_newfile) ;<br> end;<br>end;<br>deletefile(originfile);<br>renamefile(newfile);
There are something problem of Useing "Tstrings or Tstringlist".Because of their SelfLimit .<br>I think the old file operation function can do it <br>simply and easily.
