написать программу на дельфи, в которой используется MDI-окна (текстовые)

[Оксиморон]

Дан текст. Написать программу подсчитывающую количество слов в тексте, и количество цифр (текст как вы понимаете абсолютно любой)

[Sasha_Smirnov]

Жаль, что окна MDI, а не документ Word!
(А то тело программы заняло бы 2 строчки.)

Но во встроенном поиске слов Word есть коллизия (разрешение которой здорово было бы увидеть в Дэлфи): в любом тексте могут быть слова типа "топ-менеджер", "топ-10", "студент-химик", "2-метилбутан", "µ-мезон"... и (пожалуй, наиболее проблемные!) даже такие, как "P.S." и ".NET".

И, кстати! Не будем забывать, что цифры есть как арабские, так и...

[capta1n]

на паскале реализовал:

program ex1;
const
 nom = ['0'..'9'];
 znak = ['.','?','!',',','"',';',':','-'];
var
 s : string;
 n,count : byte;
 i,l : byte;
begin

  writeln ('Vvedite stroky: ');
  readln(s);

  n:=0;
  for i:=1 to length(s) do
  begin
    if s[i] in znak then
    begin
      delete (s,i,1);
      insert (' ',s,i)
    end;
    if s[i] in nom then n:=n+1
  end;

  s:=s+' ';
    count:=0;
    repeat
      l:=pos(' ',s);
      if l>1 then count:=count+1;
      delete (s,1,l)
    until s='';

  writeln ('Cifr= ',n);
  writeln ('Slov= ',count);

  readln

end.

[Sasha_Smirnov]

<Уважаемый Капитан Пронин, внук Майора Пронина, а Вы не забыли ли предварительно избавить строку от повторяющихся пробелов (ведь они обычно есть!)?>

Вопрос снят, я осознал, что

delete (s,1,l)

и

delete (s,l,1)

далеко не то же самое!

Всё же, если решать задачу тупо в лоб (а не как учебную), то я бы не включал дефис ("-") в число разделителей слов. Хотя, конечно, всё относительно.

[capta1n]

Уважаемый Sasha_Smirnov, а вы проверьте программу У меня все работает, и все что не нужно убирает ))))

[capta1n]

единственное, что последовательность цифр моя программа считает за слово - в принципе это логично, но если так не надо - я могу исправить, ибо получится, что любое слово, содержащее цифру, будет уже не словом

[capta1n]

дело в том, что в принципе я имел в виду не дефис а тире ) вы правы, что дефис не разделитель слова, а его часть, но я имел в виду тире - тогда в множество мне надо включать не '-' а с пробелами ' - ' вот так, но тогда нужно дополнительное условие проверки на содержание

[Оксиморон]

Огромное всем спасибо) Не знаю что бы без вас делал. Просто на уровень "3" сам умею немного, а это уже на "4"(студент я)

[capta1n]

чувак, оставь отзыв плиз - ты мне благодарен за задачу - я тебе за отзыв за мою работу

[Оксиморон]

А как это?) Кстати... А на дельфи это сильно отличаться будет от паскаля?