Цитата:
Сообщение от 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;
|
В коде буква Ё выпадает...
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.
Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
|