TStringList *ReporteHTML = new TStringList();
ReporteHTML->Clear();
//----Poner la cabecera
ReporteHTML->Append("<HEAD>");
ReporteHTML->Append("<TITLE>SÍNTESIS INFORMATIVA</TITLE>");
ReporteHTML->Append("</HEAD>");
//----Poner el cuerpo
ReporteHTML->Append("<BODY><FONT FACE= \"MS Sans Serif\"");
//Titulo
ReporteHTML->Append("<CENTER><H2>Síntesis Informativa</H2><H4>FECHA: "+FechaActual.FormatString("ddd d/mmm/yy"</H4></CENTER>");
ReporteHTML->Append("<p><A NAME =\"TopMenu\">FILTRADO POR: Medios Electrónicos</A>");
ReporteHTML->Append("<HR>");
//Enlaces a Radio
ReporteHTML->Append("Radio<UL>");
for( int i = 0; i < NombreRadio->Count; i++ )
{
AnsiString Ancla = CrearAncla(NombreRadio->Strings[i]);
AnsiString NAncla = NombreRadio->Strings[i];
ReporteHTML->Append("<LI><A HREF = #"+Ancla+">"+NAncla+" ("+IntToStr(ListaRadio[i]->Count)+")</A>");
}
ReporteHTML->Append("</UL>");
//Enlaces a Tv
ReporteHTML->Append("Tv<UL>");
for( int i = 0; i < NombreTv->Count; i++ )
{
AnsiString Ancla = CrearAncla(NombreTv->Strings[i]);
AnsiString NAncla = NombreTv->Strings[i];
ReporteHTML->Append("<LI><A HREF = #"+Ancla+">"+NAncla+" ("+IntToStr(ListaTv[i]->Count)+")</A>");
}
ReporteHTML->Append("</UL>");
//Enlaces a Internet
ReporteHTML->Append("Internet<UL>");
for( int i = 0; i < NombreInternet->Count; i++ )
{
AnsiString Ancla = CrearAncla(NombreInternet->Strings[i]);
AnsiString NAncla = NombreInternet->Strings[i];
ReporteHTML->Append("<LI><A HREF = #"+Ancla+">"+NAncla+" ("+IntToStr(ListaInternet[i]->Count)+")</A>");
}
ReporteHTML->Append("</UL>");