Error al buscar cadena

[[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.

[ecfisa]

Empezado por nlsgarcia

ecfisa,

Corregido Maestro

Nelson.

No te preocupes .

Por otro lado, estoy totalmente de acuerdo en las bondades que ofrece FinDialog, de echo siempre lo he incluido en mis editores. Pero me pareció que en este caso puntual, danielmj prefería que no apareciera la ventana emergente de búsqueda.

Saludos

[danielmj]

Hola, perdonad por no contestar antes, pero estuve fuera a parte que no me habia llegado notificacion al correo de que había respuestas. Ahora me pongo a mirar todo y a probar.

Gracias y saludos.

Edito: Hola de nuevo, he probado tu codigo ecfisa (mensaje #11) y si va bien, como dice nlsgarcia, funciona en XE4 y en mi caso bajo 64bit.
En cuanto al findDialog, ecfisa tiene razón, prefiero no usarlo mas que nada para no romper la estetica del formulario, máxime cuando es una aplicación de uso personal y si puedo conseguir el mismo resultado a base de codigo, pues me ahorro ventanas emergentes.

Gracias a los dos y una vez más siento no haber respondido antes, normalmente me llega un aviso al correo cuando hay respuestas, pero esta vez no sé que pasó.