如何将ADOQuery的内容保存成Htm文件，请给出实例

如何将ADOQuery的内容保存成Htm文件，请给出实例，不能用SaveToFile因为这样保存的文件会丢失格式

解决方案 »

  1.   

    1、创建一个文本文件，后缀.html.
    2、file.writeline('<html>')
    file.writeline('<title></title>');
    file.wirteline('<head></head>');
    file.wirteline('<body>');
    file.writeline('<table>');
    for i=0 to listview.count-1 do
    begin
      file.writeline('<tr>');
      file.writeline('td');  file.writeline(listview.items.item[i].caption); 
      file.writeline('/td');
      for j=0 to listview.items.item[i].subitems.count-1 do
      begin
        file.writeline('td');
        file.writeline(listview.items.item[i].subitems.strings[j])
        file.writeline('/td');// ir  
      end 
      file.writeline('</tr>');end;
    file.writeline('</table>');
    file.writeline('</body></html>');