//----------------------------------------------------------------------------
void __fastcall TForm1::Generarindice1Click(TObject *Sender)
{
delete Indice;
Indice=new ABO<TNodoIndice*>();
int numeroLineas=memo->Lines->Count;
int numeroPaginas=0;
for(int i=0;i<numeroLineas;i++)
{ AnsiString linea=memo->Lines->Strings[i];
procesarLinea(linea,numeroPaginas);
}
}
void __fastcall TFormPrincipal::Generar1Click(TObject *Sender)
{
delete indicePalabras;
indicePalabras = new tBST<tNodoIndice*>;
int numPag = 1;
for (int i=0; i<Memo1->Lines->Count; i++){
AnsiString linea = Memo1->Lines->Strings[i];
procesarLinea(linea,numPag);
}
//ShowMessage("Indice de palabras generado correctamente!");
Mostrar1Click(this);
MostrarFiltro1Click(this);
}
