Error al buscar cadena

[danielmj]

Hola, trato de buscar una cadena dada en un TRichEdit, y funciona al 50% ¿como es eso? pues la cadena la busco a partir del texto seleccionado en un combobox, el problema viene cuando tiene que encontrar esa cadena a mitad del texto que se encuentre en el RichEdit, pongo unas capturas para explicarme mejor.

Captura 1


Captura 2


Captura 3


Como veis, en la captura 1, la cadena a buscar es "Usar mapas UV" cuando pulso el boton "Buscar entrada", selecciona texto mas o menos por donde está la cadena en cuestion, pero no selecciona a esta.

En la segunda captura, debe buscar "Editor de nodos" y si lo encuentra y selecciona correctamente, y por ultimo en la captura 3, debe buscar "Creando piedras manualmente", pero hace lo mismo que en la captura 1
¿Por que?

El código que tengo ahora para las busquedas es este:

Código Delphi [-]
rocedure TbNotas.Button3Click(Sender: TObject);
var
  posicion, desplazamiento, i: integer;

begin
  desplazamiento:= 0;
  for i:= 0 to editor.Lines.Count -1 do
    begin
      posicion:= pos(lista.Text,editor.Lines[i]);
      if posicion <> 0 then
        begin
          editor.SetFocus;
          editor.SelStart:= desplazamiento + Posicion -2;
          editor.SelLength:= Length(lista.Text);
          exit;
        end;
        inc(desplazamiento, 2 + length(editor.Lines[i]));
    end;
end;

En la linea del incremento de la variable desplazamiento, si cambio el valor numerico 2 por un valor menor o mayor a este, digamos que la busqueda empeora.

¿Alguna ayuda?

Gracias de antemano.

[ecfisa]

Hola danielmj.

Aunque existen formas mas sofisticadas de búsqueda para un TRichEdit, usando FindDialog y FindText por ejemplo, creo que este modo se va a acomodar de forma simple al TComboBox de tu caso.

Fijate si te puede servir:

Código Delphi [-]
const
  EM_SCROLLCARET = $00B7;

var
  LastCase: Integer;

// Buscar primero
procedure TForm1.btnSearchClick(Sender: TObject);
begin
  with RichEdit1 do
  begin
    LastCase:= Pos(Lista.Text, Text);
    if LastCase <> 0 then
    begin
      SelStart:= Perform(EM_LINEINDEX, 0, 0) + LastCase-1;
      SelLength:= Length(Lista.Text);
      Perform(EM_SCROLLCARET, 0, 0);
      SetFocus
    end
    else MessageBox(0,PChar('No se encontró ' + Lista.Text), '', MB_OK);
  end;
end;

// Buscar siguientes
procedure TForm1.btnNextClick(Sender: TObject);
var
  Next: Integer;
begin
  with RichEdit1 do
  begin
    Next:= PosEx(Lista.Text, Text, LastCase+1);
    if Next <> 0 then
    begin
      SelStart:= Perform(EM_LINEINDEX, Next, 0) + Next ;
      SelLength:= Length(Lista.Text);
      Perform(EM_SCROLLCARET, 0, 0);
      LastCase:= Next;
    end;
    SetFocus;
  end;
end;

Saludos

[danielmj]

Hola ecfisa,

gracias por tu ayuda, he probado el código y sigue dando el mismo error, por ejemplo si en el combobox selecciono "creando piedras manualmente" la busqueda selecciona a partir de la palabra "anualmente...", esta incluida.

"CREANDO PIEDRAS MANUALMENTE
Para crear piedras de forma manual, primero crearemos un cubo y este los subdividiremos al menos 3 veces..."

Lo que está en rojo, es lo que selecciona exactamente.

Voy a seguir mirando a ver que encuentro. Gracias otra vez.

[ecfisa]

Hola danielmj.

Ya que en mis pruebas funciona correctamente, no entiendo el comportamiento que mencionas.

Por favor revisa con tranquilidad este demo que adjunto y verás que destaca en el TRichEdit exáctamente lo seleccionado o escrito en el TComboBox como se espera:



Saludos

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...trato de buscar una cadena dada en un TRichEdit...partir del texto seleccionado en un ComboBox...

Empezado por ecfisa

...existen formas mas sofisticadas de búsqueda para un TRichEdit, usando FindDialog y FindText...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    FindDialog1: TFindDialog;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ComboBox1.Items.LoadFromFile('Search_Parameters.txt');
   RichEdit1.Lines.LoadFromFile('Search_File.txt');
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
   FoundAt: LongInt;
   StartPos, ToEnd: Integer;

begin
   with RichEdit1 do
   begin
     if SelLength <> 0 then
        StartPos := SelStart + SelLength
     else
        StartPos := 0;

     ToEnd := Length(Text) - StartPos;

     FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
     if FoundAt <> -1 then
     begin
        SetFocus;
        SelStart := FoundAt;
        SelLength := Length(FindDialog1.FindText);
     end
     else
        SelStart := 0;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   FindDialog1.FindText := ComboBox1.Text;
   FindDialog1.Position := Point(0,0);
   FindDialog1.Execute;
end;

end.

El código anterior en Delphi 7 bajo Windows 7 Professional x32, realiza búsquedas de texto en un TRichEdit por medio de un TComboBox y un TFindDialog como se muestra en la siguiente imagen:



El código esta disponible en : FindText_RichEdit

Espero sea útil

Nelson.

[danielmj]

Hola Ecfisa, he mirado tu demo y me pasa lo mismo, realmente no entiendo nada por que a ti te funciona y a mi no siendo el mismo codigo??



Hola nlsGarcía, tu código no lo he mirado aun, ahora me pongo con el. Sobre usar el findDialog, bueno, en realidad lo he pensado y lo he usado en un momento, pero sinceramente dado que la aplicación no es nada del otro mundo (y ademas de uso personal), prefiero no "salirme" de la interface de esta, es decir que si puedo prescindir del findDialog.execute... etc, mejor, de todos modos, como te digo, ahora me pongo con tu aporte.

Saludos y gracias a los dos.