Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2017-05

buscar texto en TRichMemo

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Rafael Bidegain

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!

Reply by email

Javier Jait
to Rafael Bidegain

Probá entre corchetes.

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

Saludos

Earlier message 33 lines
-----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!

Reply by email

Rafael Bidegain
to Javier Jait

Hola

Si javier, así funciona.

quedó así la línea, también tenía error en el tercer parámetro.
    i := RichMemo1.Search(Edit1.Text, 0, RichMemo1.GetTextLen, [soWholeWord]);

otra opción que probé y también funciona es la siguiente.

var
  opt: TSearchOptions;
begin
opt:= [];
include(opt, soWholeWord);
i := RichMemo1.Search(Edit1.Text, 0, RichMemo1.GetTextLen, opt);

El día 13 de mayo de 2017, 8:16, Javier Jait via Lazarus-es

<lazarus-es en lists.lazarus-ide.org> wrote 48 lines
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 _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es
Rafael Bidegain Ya que los cuerdos no hablan, hablará el loco. (The Fool, Padraic Pearse) # yo quiero educación libre. ¡YA!

Reply by email