Лабораторная работа 8. Упражнение 16

16. Сколько слов в данном тексте (слова отделены пробелами).

Пример интерфейса

Пример программы

uses

// ...

LCLProc;

//...

procedure TForm1.Button1Click(Sender: TObject);

const

    SEPARATOR = ' ';

var

    s             : string;

    c             : string;

    i, len, count : Byte;

begin

    s     := Edit1.Text;

    len   := UTF8Length(s);

    count := 0;

    for i := 1 to len do begin

        c := UTF8Copy(s, i, 1);

        if c = SEPARATOR then Inc(count);

    end;

    if s <> '' then Inc(count);

    Label3.Caption := IntToStr(count);

end;