|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Подсчет слов в тексте
Здравствуйте, у меня большая проблема...помогите пожалуйста...как подсчитать количество каждого слово в тексте и вывести результат на экран в процентном соотношении?????
|
#2
|
||||
|
||||
Не понял! Как понять "в процентном соотношении"? Ты где текст держишь? В процентах, сравнивая с чем? Можно сделать просто, сколько слов. НО для начала скажи, в каком компоненте ты держишь текст? (TMemo, TEdit, TRichEdit)?
|
#3
|
|||
|
|||
текст держу в Tmemo. очень нужен подсчет именно сколько каждого слова в тексте.
|
#4
|
||||
|
||||
И в чем собственно проблема? Все что требуется - немного подумать. Вот пример - Primer.zip
|
#5
|
|||
|
|||
//Ну или вот еще для строки. Можно легко адаптировать для memo
procedure TForm1.AddWord(line:string;List:TStringList); var i:integer; label Return; begin Line:=Trim(Line); Return: for i:=1 to length(Line) do begin if i=length(Line) then begin List.Add(Copy(Line,1,i)); exit; end; if Copy(Line,i,1)=' ' then begin List.Add(Copy(Line,1,i-1)); Line:=Trim(Copy(Line,i+1,length(Line)-i)); goto Return; end; end; end; |
#6
|
|||
|
|||
я не могу открыть эот файл с примером(. У меня беда с Delphi, я тока начала программировать, поэтому и дурацкие вопросы. Спасибо за понимание.
|
#7
|
||||
|
||||
Что именно не получается, напиши поподробнее...
|
#8
|
|||
|
|||
Щелкую на ссылку, мне предлагают ее сохранить, вместо zip файла сохраняется пять картинок и код web-страницы. в итоге я так и не могу открыть этот файл. может я правда че-нить не то делаю.....
|
#9
|
||||
|
||||
Отправил пример тебе на почту...
|
#10
|
|||
|
|||
У меня тоже проблемы по этой теме
Дайте пожалуйста исходник по этой програме (если конечно такой есть) Заранее всем большое спасибо!!!
|
#11
|
||||
|
||||
Смотри ссылку в 4-ом посте, исходник нормально скачивается…
|