Fórum Formatação de texto #390192

HTML:= TStringList.Create;


      try


        HTML.Add('<table>');


        TotalLinha:= StrToInt(frmInserirTabela.edtNumeroLinhas.Text);


        TotalColuna:= StrToInt(frmInserirTabela.edtNumeroColunas.Text);


        for Linha := 1 to TotalLinha do


        begin


          HTML.Add('  <tr>');


          for Coluna := 1 to TotalColuna do


          begin


            HTML.Add('    <td>');


            HTML.Add('      <P><o>&nbsp;</o></P>');


            HTML.Add('    </td>');


          end;





          HTML.Add('  </tr>');


        end;





        HTML.Add('</table>');


      finally


        HTMLDocumento := WebBrowser1.Document as IHTMLDocument2;


        HTMLDocumento.body.innerHTML:= HTMLDocumento.body.innerHTML + HTML.Text;


        FreeAndNil(HTML);


      end;