如果删除一个文本文件中的空格行.....?

Question

比如有一个文件:
a.txt内容:1111111111111
22222222222
3333333333333444444444444555555555555
要如何才能删除其中的空行..和文件末尾的空行..谢谢..

Answer 1

都可以啊，TSTRINGLIST，READLN什么的都可以处理的。

Answer 2

readline读一行，然后判断读的内容为'',则为空格行则删掉。

Answer 3

if trim(MyStrings.Lines[i])=='' then MyStrings.Lines.Delete(i)

Answer 4

大家帮我看看。。这错在哪？
procedure TForm1.Button2Click(Sender: TObject);
  var
    aStringList:TStringList;
    i:integer;
begin
    aStringList:=Tstringlist.Create;
    try
       astringList.LoadFromFile('a.txt');
         for i:=0 to aStringList.Count-1 do
          begin
            if trim(aStringList.Strings[i])=''  then
                   astringList.Delete(i);
           end;
       astringList.SaveToFile('a.txt');
    finally
       aStringList.Free;
    end;
end;

Answer 5

for i:=0 to aStringList.Count-1 do
改为
for i:=aStringList.Count-1 downto 0 do