| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
МАСТЕРА !!! в RichEdit1 нужно найти и подсчитать сколько слов
jcrush © (2002-09-02 11:38:00)with listbox1 do
ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S));
это в лист бокс, нужно в ричэдит, а не получается,
нужно найти и посчитать сколько слов в форме...
Song (2002-09-02 17:49:00) [1]Тогда только циклом и по условию.
jcrush (2002-09-02 17:46:00) [2]Вы немного не поняли, подсчитывать все не нужно, нужно подсчитать только определенное слова, например из поля richedit2
?
Song (2002-09-02 12:59:00) [3]Можно и для другого ограничителя приделать, не сложно.
Anatoly Podgoretsky (2002-09-02 11:52:00) [4]Это если у него ограничитель слов пробел, как правило это не так
Song (2002-09-02 11:45:00) [5]Sorry, ... [rfReplaceAll]...
Song (2002-09-02 11:43:00) [6]With TStringList.Create Do
try
Text:=RichEdit1.Lines.Text;
Text:=StringReplace(Text,#32,#13#10,"rfReplaceAll");
ShowMessage("RichEdit содержит "+IntToStr(Count)+" слов.");
finally
Free;
end;
| |
