Error al buscar cadena

[ecfisa]

Hola danielmj.

Empezado por 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??

Si, es muy posible ya que las versiones de TRichEdit son diferentes. Habría que revisar un poco sobre los valores de las constantes... En principio podrías intentar quitando la constante que redefine el valor de EM_SCROLLCARET (necesario para Delphi 7).

Voy a buscar un poco sobre el tema en XE4 y cualquier novedad te comento.

Saludos

[danielmj]

Hola, gracias por la ayuda, sigo mirando a ver que consigo y quedo a la espera por si encuentras algo.

Saludos.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...Sobre usar el FindDialog...si puedo prescindir del FindDialog...mejor...

El código sugerido en el Msg #5 es una solución alternativa al problema planteado por medio de un TComboBox como interfaz de un TFindDialog, funcionando correctamente según lo esperado en Delphi 7, Delphi 2010 y Delphi XE4 bajo Windows 7 Professional x32.

Espero sea útil

Nelson.

[ecfisa]

Hola danielmj.

Empezado por danielmj

Hola, gracias por la ayuda, sigo mirando a ver que consigo y quedo a la espera por si encuentras algo.

Saludos.

No cuento con otra versión que Delphi 7 para comprobarlo (lo que me dificulta la taréa...), así que tengo que pedirte que verifiques si te funciona este modo en tu Delphi:

Código Delphi [-]
uses RichEdit;

const
  EM_SCROLLCARET = $00B7;

var
  LastCase: Integer;

procedure TForm1.btnSearchFirstClick(Sender: TObject);
begin
  with RichEdit1 do
  begin
    LastCase:= RichEdit1.FindText(Lista.Text, 0, Length(RichEdit1.Text), []);
    if LastCase <> -1 then
    begin
      SelStart:= Perform(EM_LINEINDEX, 0, 0) + LastCase;
      SelLength:= Length(Lista.Text);
      Perform(EM_SCROLLCARET, 0, 0);
      SetFocus
    end
  end
end;

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

Insisto en este modo de búsqueda, por que en principio entendí que respeta la estética que queres darle a tu aplicación.

Saludos

[[nlsgarcia]]

danielmj,

Empezado por ecfisa

...No cuento con otra versión que Delphi 7 para comprobarlo...así que tengo que pedirte que verifiques si te funciona este modo en tu Delphi...

El código sugerido en el Msg #11 funciona correctamente según lo esperado en Delphi 7, Delphi 2010 y Delphi XE4 bajo Windows 7 Professional x32.

Espero sea útil

Nelson.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...Sobre usar el FindDialog...si puedo prescindir del FindDialog...mejor...

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;
    ComboBox1: TComboBox;
    procedure Button1Click(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.Button1Click(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;

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

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

end.

El código anterior es la versión 2 del código sugerido en el Msg #5 sin la utilización del componente TFindDialog y con la capacidad de hacer Búsquedas Cíclicas de tipo Case Insensitive, funcionando correctamente según lo esperado en Delphi 7, Delphi 2010 y Delphi XE4 bajo Windows 7 Professional x32.

Espero sea útil

Nelson.

[ecfisa]

Gracias por probar el código Nelson

Empezado por nlsgarcia

...

Pero... ¿ En que mensaje escribí esa opinión ?

Saludos

[[nlsgarcia]]

ecfisa,

Corregido Maestro

Nelson.