МАСТЕРА !!! в RichEdit1 нужно найти и подсчитать сколько слов

← →
jcrush (2002-09-02 11:38) [0]

with listbox1 do
ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S));

это в лист бокс, нужно в ричэдит, а не получается,
нужно найти и посчитать сколько слов в форме...

← →
Song (2002-09-02 11:43) [1]

With TStringList.Create Do
try
Text:=RichEdit1.Lines.Text;
Text:=StringReplace(Text,#32,#13#10,"rfReplaceAll");
ShowMessage("RichEdit содержит "+IntToStr(Count)+" слов.");
finally
Free;
end;

← →
Song (2002-09-02 11:45) [2]

Sorry, ... [rfReplaceAll]...

← →
Anatoly Podgoretsky (2002-09-02 11:52) [3]

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

← →
Song (2002-09-02 12:59) [4]

Можно и для другого ограничителя приделать, не сложно.

← →
jcrush (2002-09-02 17:46) [5]

Вы немного не поняли, подсчитывать все не нужно, нужно подсчитать только определенное слова, например из поля richedit2
?

← →
Song (2002-09-02 17:49) [6]

Тогда только циклом и по условию.

МАСТЕРА !!! в RichEdit1 нужно найти и подсчитать сколько слов Найти похожие ветки