Работа с RichEdit

[kaizer131]

Привет всем!

Не могу до конца проработать один момент. Организовываю поиск подстроки в тексте.
Для вывода текста используется RichEdit. Необходимо найти все вхождения подстроки и выделить их красным цветом.

Пробовал 2 способа:

1) При нажатии кнопки проходить по тексту целиком, организовав в цикле проверку.

procedure TForm1.Button1Click(Sender: TObject);
  var
p,s: string; i,lp,j: integer;
  BMT: PBMTable; // таблица смещений, полученная по алгоритму Бойера-Мура

begin
  p:= edit1.text; // в переменную р заносим значение искомой подстроки
  lp:=Length(p); // получаем длину подстроки
  s:=RichEdit1.text; // в переменной s хранится весь текст из RichEdit1
BMT:=WCMakeBMTable(p); // вызов функции строящей таблицу смещений
// patpos глобальная переменная хранящая в себе позицию вхождения подстроки
  while patpos<>0 do // пока есть вхождения 
  begin
  memo2.Lines.Add(inttostr(BMSearch(PatPos,lp,s,BMT))); // в  memo2 добавляем позиции вхождения
// следующий блок должен выделять найденную подстроку красным цветом
 RichEdit1.SelStart:= PatPos -1; // начало выделения
 RichEdit1.SelLength:=lp; // конец выделения
 RichEdit1.SelAttributes.Color:= clRed; // выделенное выделяем красным

  PatPos := BMSearch(PatPos+1,lp,s,BMT); // обновляем позицию вхождения
  end;

FreeMem(BMT);    // освобождаем память.
end;

В этом способе пока не могу исправить следующие ошибки:

1- в memo2 первое вхождение выводится 2 раза, остальные нормально.
2- Позиция PatPos, начиная со второй строки высчитывается неправильно.
Как я понимаю это из за того что в конце каждой строки есть символы перехода на новую строку и возврата каретки #10#13.
Из этого следует вопрос, как их игнорировать ?
3- найденная подстрока выделяется только в первой строке.


2-ой способ – построчное считывание

procedure TForm1.Button1Click(Sender: TObject);
  var p,s: string; i,lp,j,g: integer;
  BMT: PBMTable;

begin
  p:= edit1.text;
  lp:=Length(p);
  //ind:=0;
  BMT:=WCMakeBMTable(p);


for j:=0 to RichEdit1.Lines.Count-1 do // проходим построчно RichEdit1
begin
s:= RichEdit1.Lines[j] ; //s назначается значение j – ой строки RichEdit

  while patpos<>0 do
  begin

  memo2.Lines.Add(inttostr(BMSearch(PatPos,lp,s,BMT))); 
  RichEdit1.SelStart:= PatPos -1;
  RichEdit1.SelLength:=lp;
  RichEdit1.SelAttributes.Color:= clRed;

    PatPos := BMSearch(PatPos+1,lp,s,BMT); // назначаем новый  PatPos

end;
patpos:=1; 
end;
end;

В этом способе пока не могу исправить следующие ошибки:

1- В memo2 первое вхождение выводится 2 раза, остальные нормально.
2- Как правильно просчитать PatPos, поскольку сейчас она считает её отдельно для каждой строки.
3- Найденная подстрока выделяется только в первой строке.

Так как мои мысли "замылились" прошу Вашего свежего взгляда и дельного совета

Забыл уточнить , все поиски осуществляются с помощью алгоритма Бойера-Мура, использовать pos() и подобные функции нельзя

[SERG1980]

Могу вам подкинуть поиск и выделение найденого слова в ричэдит

 
uses RichEdit;

implementation

{$R *.dfm}
 const EM_SCROLLCARET = $00B7;
 var R:FINDTEXT;
 Rres:CHARRANGE;
 s:string;
 Flags:longint;
procedure TForm1.Button1Click(Sender: TObject);
begin
 R.chrg.cpMin:=0;
 R.chrg.cpMax:=Length(RichEdit1.Text);
 s:=Edit1.Text;//искомое слово
 R.lpstrText:=PChar(s);
 Flags:=0;
 repeat
  Rres.cpMin:=RichEdit1.Perform(EM_FINDTEXT,Flags,Longint(@R));
  Rres.cpMax:=RRes.cpMin+Length(Edit1.Text);
  Application.ProcessMessages;
  RichEdit1.Perform(EM_EXSETSEL,0,LongInt(@Rres));
  RichEdit1.SelAttributes.Color:= clRed;
  R.chrg.cpMin:=Rres.cpMax;
  RichEdit1.Perform(EM_SCROLLCARET,0,0);
  RichEdit1.SetFocus;
 until Rres.cpMin=-1;
end;

если нужно учитывать регистр при поиске то переменной Flags выставите значение Flags:=FT_MATCHCASE;
если слово целиком то Flags:=FT_WHOLEWORD;

[kaizer131]

попробовал так
не получилось

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


 const EM_SCROLLCARET = $00B7;
 var R:FINDTEXT;
 Rres:CHARRANGE;
 s:string;
 Flags:longint;
procedure TForm1.Button1Click(Sender: TObject);
begin
 R.chrg.cpMin:=0;
 R.chrg.cpMax:=Length(RichEdit1.Text);
 s:=Edit1.Text;//искомое слово
 R.lpstrText:=PChar(s);
 Flags:=0;
 repeat
  Rres.cpMin:=RichEdit1.Perform(EM_FINDTEXT,Flags,Longint(@R));
  Rres.cpMax:=RRes.cpMin+Length(Edit1.Text);
  Application.ProcessMessages;
  RichEdit1.Perform(EM_EXSETSEL,0,LongInt(@Rres));
  RichEdit1.SelAttributes.Color:= clRed;
  R.chrg.cpMin:=Rres.cpMax;
  RichEdit1.Perform(EM_SCROLLCARET,0,0);
  RichEdit1.SetFocus;
 until Rres.cpMin=-1;
end;
end.

[SERG1980]

А что именно, у меня например все найденные слова красным веделяет

[kaizer131]

Хм странно , твой ЕХЕ шник запустил, нормально всё работает, открыл проект , запустил, невыделяет, у тебя какая delphi?
У меня 2009... может в ней косяк ?

[SERG1980]

Может быть у меня 2006

[kaizer131]

хм, может кто сталкивался с подобным?