Проверить, встречается ли в строке удвоения букв - 28 Ноября 2012

Главная » 2012 » Ноябрь » 28 » Проверить, встречается ли в строке удвоения букв

07:43 Проверить, встречается ли в строке удвоения букв
Function GetDoubleCharInStr(value:string):boolean; var x:integer; begin result:=false; for x:=1 to length(value)-1 do begin if (value[x]=value[x+1]) and (value[x] in ['A'..'Z','a'..'z','а'..'я','А'..'Я']) then begin // проверяем только буквы result:=true; end; end; end; var s:string; begin s:='Проверить, встречается ли в строке е удвоения букв. '; if GetDoubleCharInStr(s) then Writeln('Есть удвоения букв') else Writeln('Удвоеных букв нет'); end.
1 2 3 4 5 Просмотров: 1391 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки