如何读取文本文件的某行，并将这一行删除！

Question

如有这样的文本：.
.
.
.
.
12345
123456
1234567
.
.
.
如果要删除1234567这一行，该怎么处理！(不是固定的行）

Answer 1

一个笨方法：用MEMO将文件读入，循环查找每行，用POS查找1234567是否在某一行中，如果在，将这一行删除，然后将文件存盘。

Answer 2

文本文件不大的话。function delete_line(line:string;filename);
var
  s:strings;
  count:integer;
begin
   s:=tstringlist.create;
   s.loadfrom(filename);
   count:=0;
  while count<s.count-1 do
      if s[count]<>line then  inc(count);
 if count=s.count-1 then s[count]:=' ' else
   把后面的覆盖前面的。
  s.savefile(filename);
  s.free.
老兄这么点分？？？？？？？？？？
   

Answer 3

var
str1:tstrings
i:integer;
begin 
str1:=tstringlist.creat;
str1.LoadFromFile('c:\xxx.txt');
for i:=1 to str1.count do 
begin  
if str1[i]:='1234567' then 
     str1[i]:='';
end;
str1.savetofile('c:\xxx.txt');
end;

Answer 4

var
  i:integer;
begin
memo1.Lines.LoadFromFile('c:\ts.txt');
for i:=0 to memo1.Lines.Count-1  do
if memo1.Lines.Strings[i] ='12345' then
begin
  memo1.Lines.Delete(i);
  break;
end;
memo1.Lines.SaveToFile('c:\ts.txt'); 注意：需要一个tmemo组件