Цитата:
|
Сообщение от lmikle
Ну просто же все.
Если делаем номера по порядку алфавита, то можно так:
Код:
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);
end; |
В коде буква Ё выпадает... |