Подсчет к-ва символов из масива

[tresh]

Првиет. Есть масив символов:

const Buk:array[0..65] of char = ('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й', 'К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я', 'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы', 'ь','э','ю','я');

В текстбоксе вводят любое слово. Нужно для каждой буквы определить ее номер в масиве и в конце подсчета всех букв додать их номера...
Например:
в текстбоксе вводят слово "Привет" значит П=17, р=51, и=43, в=36, е=39,т=45. Потом 17+51+43+36+39+45 = 231

[Valio]

И в чём проблема?

[tresh]

проблема в том что я не знаю как это реализовать)

[Valio]

Первое что приходит в голову:

..дел

адд: кароч пока мысль с TStringList всё замутить. Какой ЯП?

адд: а что если буква повторяется в слове?

[tresh]

Сообщение от Valio

Первое что приходит в голову:

..дел

адд: кароч пока мысль с TStringList всё замутить. Какой ЯП?

адд: а что если буква повторяется в слове?

если буква повторяеться, то ничего особенного... вновь определять номер в масиве и додавать к общей сумме....

[Valio]

Способов решения много. Хранить можно как и где угодно, начиная от динамического массива и заканчивая стринГлистами всякими.

[tresh]

напишите пример в коде пожалуйста, а то я в delphi не очень...

[tresh]

Првиет. Есть масив символов:
Код:

const Buk:array[0..65] of char = ('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й', 'К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я', 'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы', 'ь','э','ю','я');

В текстбоксе вводят любое слово. Нужно для каждой буквы определить ее номер в масиве и в конце подсчета всех букв додать их номера... 
Например:
в текстбоксе вводят слово "Привет" значит П=17, р=51, и=43, в=36, е=39,т=45. Потом 17+51+43+36+39+45 = 231

помогите пожалуйста написать это... за помощь + в репутацию...

[chertovich]

var
  I: Integer;
begin
  for I := Low(Mass) to High(Mass) do
  begin
    Chr(Mass[I])// Вот тут идет получение кода символа, а сним делай сам, лень писать
  end;

[MoBLer]

Вот только пример с эдитом, но не трудно переделать
И еще в вашем примере вы немного ошиблись т=53 )