Скачать: CL | DM;

МАСТЕРА !!! в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c