应该是普通的字符复制程序吧？
检测标志位 eol可以不？

var
  sl1,sl2:Tstringlist;
  i: integer;
begin
  sl1:=TStringList1.Create;
  try
    sl1.loadfromfile(FileName1);
    sl2:=TStringList1.Create;
    try
      for i:=0 to sl1.count-1 do
        begin
          sl2.add(sl1.Strings(i));
        end;
      sl2.savetofile(FileName2);
    finally
      sl2.free;
    end;
  finally
    sl1.free;
  end;

end;

sl2.add(sl1.Strings(i));在这句话这报错??

问题已解决谢谢