请问Delphi怎样向html文件中加入一行，

比如怎样在<HEAD>后加入一行

解决方案 »

  1.   

    var
      sl: TStringList;
      i: Integer;
    begin
      sl := TStringList.Create;
      sl.LoadFromFile('c:\test.html');
      for i := 0 to sl.Count - 1 do
        if Pos('<HEAD>', UpperCase(sl[i])) > 0 then begin
          sl.Insert(i+1, '加入一行');
          break;
        end;
      sl.Free;
    end;
      

  2.   

    楼主，你要考虑在那里加啊，其实你直接用文本方式打开文件，然后用READLN，WRITELN就好了啊，不行可以帮你写一个啊1！！：）！sysu(死树)的听好的啊1！！1
      

  3.   

    是了，加上这句保存：sl.SaveToFile('c:\test.html');