Delphi-Help

Главная Статьи Текст и Строки Сколько раз последняя буква очередного слова совпадает с первой буквой следующего слова

Сколько раз последняя буква очередного слова совпадает с первой буквой следующего слова

Оцените материал
(1 Голосовать)


Сколько раз последняя буква очередного слова совпадает с первой буквой следующего слова

procedure TForm1.Button1Click(Sender: TObject);
   const n=['!','?',',','.',':',' ',#13,#10,#9];
   var i,q:integer; str,s,s2:string;
begin
q:=0;
s2:='';
str:=edit1.Text;
for i:=1 to length(str) do
if not (str[i]in n) then
s:=s+str[i] else begin
if (length(s)>0)and(length(s2)>0) then
if s2[length(s2)]=s[1] then
inc(q);
if (length(s)>0) then
s2:=s;
s:='';
 
end;
label1.Caption:= inttostr(q)+' совпадения';
end;
Прочитано 5394 раз

Авторизация



Счетчики