[zhuk518]

Здравствуйте, у меня большая проблема...помогите пожалуйста...как подсчитать количество каждого слово в тексте и вывести результат на экран в процентном соотношении?????

[Artem28]

Не понял! Как понять "в процентном соотношении"? Ты где текст держишь? В процентах, сравнивая с чем? Можно сделать просто, сколько слов. НО для начала скажи, в каком компоненте ты держишь текст? (TMemo, TEdit, TRichEdit)?

[zhuk518]

текст держу в Tmemo. очень нужен подсчет именно сколько каждого слова в тексте.

[Decoding]

И в чем собственно проблема? Все что требуется - немного подумать. Вот пример - Primer.zip

[ART]

//Ну или вот еще для строки. Можно легко адаптировать для 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;

[zhuk518]

я не могу открыть эот файл с примером(. У меня беда с Delphi, я тока начала программировать, поэтому и дурацкие вопросы. Спасибо за понимание.

[Decoding]

Что именно не получается, напиши поподробнее...

[zhuk518]

Щелкую на ссылку, мне предлагают ее сохранить, вместо zip файла сохраняется пять картинок и код web-страницы. в итоге я так и не могу открыть этот файл. может я правда че-нить не то делаю.....

[Decoding]

Отправил пример тебе на почту...

[Inspiron]

Дайте пожалуйста исходник по этой програме (если конечно такой есть) Заранее всем большое спасибо!!!

[Decoding]

Смотри ссылку в 4-ом посте, исходник нормально скачивается…