var s:Tstrings;
      i:integer;
begin
  s:=Tstringlist.Create;
  s.LoadFromFile('e:\aa.txt');
  i:=0;
  memo1.lines.clear;
  while i<s.Count do begin
    memo1.Lines.Add(inttostr(i)+'.'+  s.Strings[i]);
    inc(i);
  end;
  s.free;end;

解决方案 »

  1.   

    with TStringList.Create try
    {没有空格真烦}  LoadFromFile('C:\Temp.txt');
    {没有空格真烦}  Delete(3); //删除第四行
    {没有空格真烦}  SaveToFile('C:\Temp.txt');
    finally
    {没有空格真烦}  Free;
    end;
      

  2.   

    参考System.Pos()、TStringList.IndexOf()
      

  3.   

    请问tstringlist,savetofile 部件在哪个控制面板下
      

  4.   

    fontain() 答的很对的,利用list,可以很简单的。
      

  5.   

    呵呵,你看来真是新手
    这样,写一个tstringlist然后光标定在上面按一下f1试试
      

  6.   

    fontain() 
    的方法可以!