#Delphi Строки

[forumu]

Здравствуйте, программисты, помогите пожалуйста...

Выполнить задание следующим образом:
Текст ввести с помощью компонента Memo.
Вывести слова исходного текста в алфавитном порядке.

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово.

[mihali4]

Ну, и где ваш, пусть даже и неработающий вариант?
Или вы тоже заскочили сюда за халявой?

[forumu]

const
  sep = '.,!?:;()- '#13#10;
....
var
  wrd: string;
  i: integer;
begin
  ListBox1.Clear;
  wrd := '';
  for i := 1 to length(Memo1.Text) do
    begin
      if pos(Memo1.Text,sep) > 0 then
        begin
          if wrd <> '' then
            ListBox1.Items.Add(wrd);
          wrd := '';
        end
      else
        wrd := wrd + Memo1.Text;
    end;
  if wrd <> '' then
    ListBox1.Items.Add(wrd);
  Listbox1.Sorted := true;
end;

Здесь надо плюс к этому определить,сколько раз встречается самое короткое слово. Помогите пожалуйста.

[mihali4]

Здесь надо плюс к этому определить,сколько раз встречается самое короткое слово

Предложение такое.
Memo1.Text рассматриваем как длинную строку и ищем в ней все пробелы при помощи функции PosEx.
Каждый раз при получении позиции пробела сравниваем ее с предыдущей - то есть косвенно определяем длину слова и если она меньше, чем у нас было, устанавливаем новую величину (и запоминаем слово). В конце концов получаем длину самого короткого слова и само слово. Попутно, видимо, нужно анализировать полученное слово на "прилипшие" запятые, точки и прочие знаки препинания.
При помощи той же функции PosEx находим количество вхождений этого слова в Memo1.Text. Это и будет ответ на вопрос.