FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
buscar en un TMemo
Hola, estoy realizando una aplicación en delphi 5, y en una de las partes tengo que realizar una editor de textos, que disponga de la funcionalidad buscar. Esto lo he encontrado echo en muchos sitios pero a mi realmetne no me funciona el codigo que he utilizado a sido:
procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; //defino la variable donde se ha encontrado StartPos, ToEnd: Integer; // defino la variable de comienzo y de final begin with Memo1 do // cogemos el memo para trabajar con él, todas las variables que cojamos hacen referencia a ese objeto begin if SelLength <> 0 then // si no estamos al principio del texto StartPos := SelStart + SelLength //comenzamos desde donde estemos else StartPos := 0; ToEnd := Length(Text) - StartPos; // definimos la longitud desde el comienzo hasta el final //EL ERROR ESTÁ EN LA SIGUIENTE LINEA, LA HE COMENTADO PARA PODER COMPILAR //FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd,[stMatchCase]); // buscamos el texto con los datos que hemso calculado if FoundAt <> -1 then begin SetFocus; // colocamos el curso ahí SelStart := FoundAt; // comenzamos a seleccionar donde lo ha encontrado SelLength := Length(FindDialog1.FindText); // seleccionamos la longitud del texto a buscar end; end; end; -------- El error que me da es que dice que no está definida la función FindText. A ver, que me decis, por que yo ya estoy harta de darle vueltas al codigo y no encuentro la solución por ningun lado |
#2
|
||||
|
||||
FindText existe en la api de windows, y en el TCustomRichEdit, en el Memo no.
Desde luego, lo más facil es cambiar el memo por un RichEdit, y ahora usar la linea que no compila Por cierto, ese código es primo-hermano del que viene en la ayuda de delphi para "Position, Execute, FindText, OnFind, SelStart, SelLength example"
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
|||
|
|||
Gracias, cambiaré eso a ver si ya me funciona y si, yo tb me di cuenta despues, que el codigo venia practicamente igual en la ayuda del delphi.
un beso! |
|
|
|