利用delphi写网页问题.急!!!!

我遇到一个问题.我使用
rewrite  Writeln写网页表格现在要求加入表头表尾,我在主窗体中定义了两个string的变量headTitle和EndTitle
在另一个窗体(表头表尾选择窗体)对两个string的变量赋值
其中edit1是表头 edit2为表尾.pic1为表头图片pic2为表尾图片.
FrmMain.headTiele:='<li><p align="center"><img src=pic1.jpg><b>'+trim(edit1.Text)+'</li>';
FrmMain.endTitle:='<li><p align="center"><img src=pic2.jpg><b>'+trim(edit2.Text)+'</li>';然后在主窗体中在写其他网格前:
   if (headTitle<>'')then
   writeln(GblData.htmlFile2,headTiele);
结果没有任何变化..请问大虾们如何做才能现实我要实现的表头表尾.

解决方案 »

  1.   

    writenln(gbldata.htmlfile2.edit1.text);???
    或者headtile:='<html><li><p align="center"><img src=pic1.jpg><b>'+trim(edit1.Text)+'</li></html>'
      

  2.   

    银狐,你没有听明白我的意思啊.我是让它加入表头表尾啊.表格必须保留.呵呵
    其实在用户点击"确定表头表尾"的时候.程序重新执行一次写网页程序的.
    FrmMain.BitSQLOKClick(Sender);
      

  3.   

    我知道那里错了，但是不知怎么改.....
    headTiele,Endtitle为两个string型变量
    FrmMain.headTiele:='<li><p align="center"><img src=pic1.jpg><b>'+trim(edit1.Text)+'</li>';
    FrmMain.endTitle:='<li><p align="center"><img src=pic2.jpg><b>'+trim(edit2.Text)+'</li>';
    赋值并没有将我要输入的'<li><p align="center"><img src=pic1.jpg><b>'+trim(edit1.Text)+'</li>'完全赋值给Frmmain.headTiele.....大虾，如何改才能赋值？？？求救了啊