Друзья, срочно!!!Помогите решить задачу в дельфи!!!

[sasha_14-88]

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

[ZX Spectrum-128]

http://interacia.net/index.php/2011-...-12-28-27.html

[sasha_14-88]

Сообщение от ZX Spectrum-128

http://interacia.net/index.php/2011-...-12-28-27.html

мне нужно чтоб искало все слова по заданной букве а не чтоб совпадало начало и конец.. и не в паскале, а в дельфи. Спасибо!

[ZX Spectrum-128]

В данном случае неважно, дельфи или паскаль. Отработает и там, и тут.
А под ваш вариант меняется легким движением руки.

[sasha_14-88]

Сообщение от ZX Spectrum-128

В данном случае неважно, дельфи или паскаль. Отработает и там, и тут.
А под ваш вариант меняется легким движением руки.

вот и прошу помощи у профессионалов))

[ZX Spectrum-128]

Так уберите проверку на конец слова. И все, задача решена. В комментариях написано, где происходит эта проверка.

[Stilet]

var c:integer;
...
c:=0;
With TStringList.Create do begin
 DelimitedText:=Предложение;
 for i:=0 to Count-1 do 
  if Copy(Strings[i],1,1)=заданная буква then inc(c);
free; 
end;
ShowMessage(IntToStr(c));

Ставить в любой обработчик.

[doktor255]

if Copy(Strings[i],1,1)=

if Strings[i][1]=