если кто может работать с Delphi, то, будьте добры, откликнитесь))))

[raito69]

Посчитать кол-во слов и длину наиболее длинного слова
текст: что за ветер в степи молдаванской!
как поёт под ногами земля!
и легко мне с душою цыганской
кочевать никого не любя.

[Utkin]

Слов 21
Самой длинное молдаванской

Текст идет одной строкой или абзацами?

[raito69]

абзацами))

[Grag]

если кто может работать с Delphi, то, будьте добры, откликнитесь))))

Я могу! Delphi7, ничего другого не признаю, принципиально... (из этого семейства)
Откликнулся!

[Риндера]

Где-то нашла тут:

function WordCount(Text : String) : LongWord;
var
 i : LongWord;
begin
Result:=0;
 for i:=0 to Length(Text) do
  if (Text[i]=' ') or ((Text[i]=#13) and (Text[i+1]=#10)) then inc(Result);
 if Result<>0 then inc(Result);
end;

Считай полдела сделано)

[Utkin]

Тогда из Мемо загоняй в массив слов (можно на основе TStringList)
Далее в цикле ищешь слово максимальной длины, а число слов будет числом элементов в массиве....
Если брать вариант от Риндера, то надо немного доделать на предмет поиска максимально большого слова, тоже не сложно.

[raito69]

спасибо большое)))

[Grag]

Риндера, помни об енттом:

prpChar=['.',',',':',';','?','!','-',' ']; {символы разделители}

[Utkin]

if (Text[i]=' ') or ((Text[i]=#13) and (Text[i+1]=#10)) then inc(Result);

Вместо

Text[i]=' '

проверка на вхождение в множество и всего делов-то.