задача на строки в делфи

[Dinamit_92]

Дана символьная строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.


напишите плиз код!структурное программирование

[Hacker19_90]

Строки я так думаю разделяются пробелом?

Ну вот так

procedure TForm1.Button1Click(Sender: TObject);
var
    s: string;
    i, kol: integer;
begin
    s := Edit1.Text;
    kol := 0;
    for i := 1 to Length(S) do
    begin
        if s[i] = ' ' then
        Inc(Kol)
    end;
    Edit2.Text := IntToStr(kol+1);
end;

[Stilet]

Вот еще вариант, можно массив отключить.
http://www.programmersforum.ru/showthread.php?p=398369

[.Phoenix]

Hacker19_90, а если встретились случайно 2 подряд пробела?

[Hacker19_90]

Сообщение от .Phoenix

Hacker19_90, а если встретились случайно 2 подряд пробела?

То пожалуйста не ленимся и подправляем код руками!

[Grag]

Сообщение от Hacker19_90

Строки я так думаю разделяются пробелом?

А мне всегда чудилось, что строки разделяются типа что-то LineFeed=#10#13...

[Hacker19_90]

Сообщение от Grag

А мне всегда чудилось, что строки разделяются типа что-то LineFeed=#10#13...

Перепутал!!! Слова!

[Dinamit_92]

Hacker19_90
конечно спасибо,ну а если не в визуальном а в структурном...ну, в console application

[Hacker19_90]

тогда сделай функцию! Входной параметр которой это строка! А результат кол-во слов!

[SERG1980]

Можно такой вариант попробовать

procedure TForm1.Button1Click(Sender: TObject);
var SL:TStringList;
    s:string;
begin
 s:='Это какая то простая строка.';
 sl:=TStringList.Create;
 sl.Delimiter:=' ';
 sl.DelimitedText:=s;
 showmessage('Количество слов = '+IntToStr(sl.Count));
 sl.Free;
end;