[ShutTap]

Есть текст в RichEdit, есть слово в Edit. Нужно посчитать, сколько раз это слово встречается в тексте.

я в программировании не бум-бум, в инете искал, сделал так:

Код:

   while RichEdit1.FindText(word, startpos, Endpos, [stMatchCase,stWholeWord])<>-1 do
    begin
    Inc(ii);   // + к числу слов
    startpos:=startpos+pos(word,RichEdit1.Text);
   end;

но че-то криво работает

[v1s2222]

Самое простое, при помощи функции PosEx, примерный набросок:

Код:

var
  Count: Integer;
  Curr: Integer;
begin
  Count := 0;
  Curr := Pos(Edit1.Text, RichEdit1.Text);
  while(Curr <> 0) do begin
    inc(Count);
    Curr := PosEx(Edit1.Text, RichEdit1.Text, Curr+1);
  end;

  ShowMessage('Кол-во слов в тексте: ' + IntToStr(Count));

Не забудь подключить модуль StrUtils.

[ShutTap]

Спасибище огромное!!)

[ShutTap]

надо чтобы слово искалось целиком, а не его вхождение в часто другого слова.

типа ищу "лес", должен найти "лес", но не "леса", например.

[angvelem]

Проверяй следующий символ после найденного слова, если символ в пределах 'a..z, A..Z, а..я, А..Я', то пропускай его.

[ShutTap]

можно как то через
FindText(word, startpos, Endpos, [stMatchCase,stWholeWord]) у ричедита?
в начале вариант написан. там, как я понял, stWholeWord отвечает как раз за слово целиком, а не вхождение в другое слово.

[angvelem]

В "сети" и такое имеется:

Код:

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean; 
var 
  StartPos, Position, Endpos: Integer; 
begin 
  StartPos := 0; 
  with RichEdit do 
  begin 
    Endpos := Length(RichEdit.Text); 
    Lines.BeginUpdate; 
    while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do 
    begin 
      Endpos   := Length(RichEdit.Text) - startpos; 
      Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]); 
      Inc(StartPos, Length(SearchText)); 
      SetFocus; 
      SelStart  := Position; 
      SelLength := Length(SearchText); 
    end; 
    Lines.EndUpdate; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SearchForText_AndSelect(RichEdit1, 'Some Text'); 
end;

[ShutTap]

вроде сделал, спасибо всем)