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;
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;
{没有空格真烦} LoadFromFile('C:\Temp.txt');
{没有空格真烦} Delete(3); //删除第四行
{没有空格真烦} SaveToFile('C:\Temp.txt');
finally
{没有空格真烦} Free;
end;
这样,写一个tstringlist然后光标定在上面按一下f1试试
的方法可以!