Цитата:
Сообщение от Aristarh Dark
В коде буква Ё выпадает...
|
Хм, да, про Ё я как-то забыл. Ну, ее можно обработать отдельно:
Код:
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;