//---------------------------------------------------------------------------- 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); }