|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Цитата:
Хм, да, про Ё я как-то забыл. Ну, ее можно обработать отдельно: Код:
function DigitizeString(S : String) : Integer; var I : Integer; begin Result := 0; S := AnsiUpperCase(S); For I := 1 To Length(S) Do If S[i] In ['А'..'Я'] Then Result := Result + (Ord(S[i]) - Ord('А') + 1); If S[i] = 'Ё' Then Result := Result + (Ord('Я') - Ord('А') + 2); end; |