[Lazarus-es] buscar texto en TRichMemo

Javier Jait javierjait en yahoo.com
Sab Mayo 13 13:16:51 CEST 2017


Probá entre corchetes.

  i := RichMemo1.Search(Edit1.Text, 0, length(Edit1.Text), [soWholeWord]);

Saludos

-----Mensaje original-----
De: Lazarus-es [mailto:lazarus-es-bounces en lists.lazarus-ide.org] En nombre de Rafael Bidegain via Lazarus-es
Enviado el: viernes, 12 de mayo de 2017 23:14
Para: Spanish version of Lazarus List <lazarus-es en lists.lazarus-ide.org>
CC: Rafael Bidegain <r.bidegain en gmail.com>
Asunto: [Lazarus-es] buscar texto en TRichMemo

Hola a todos.

Estoy haciendo unas pruebas con TRichMemo.
encontré el componente en http://wiki.freepascal.org/RichMemo.

necesito buscar un texto y posteriormente reemplazarlo pero en la búsqueda ya tengo inconvenientes, el procedimiento es el siguiente.

procedure TForm1.Button1Click(Sender: TObject); var
   i : integer;
begin
  i := RichMemo1.Search(Edit1.Text, 0, length(Edit1.Text), soWholeWord);
  ShowMessage(IntToStr(i));
end;

el error está en soWholeWord y es el siguiente:

unit1.pas(67,71) Error: Incompatible type for arg no. 4: Got "TSearchOption", expected "TSearchOptions"

será un error en el código del componente?
--
Rafael Bidegain

Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)

# yo quiero educación libre. ¡YA!
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus-es



Más información sobre la lista de distribución Lazarus-es