Преобразование символов в цифры

[celovec]

есть переменная
nick="Andrej85";

Задача, нужно каждую букву и цифру в переменной nick прогнать через ord('*') и все сплюсовать и записать в переменную buf.

Насколько я понимаю необходимо создать цикл и пройтись по всем буква.
К сожалению умею делать только такие циклы

    for i := 0 to length(nick) do
      buf:=+ord(i);
    end;

Он не подходит т.к. в i хранится не буква а ее очередь в слове.
Как быть?

[kwinto]

for i := 1 to length(nick)-1 do
buf:=+ord(nick[i]);

[3D Hunter]

Это общие вопросы Делфи, а не С++. Правильно так:

buf:=0;
for i:=1 to Length(nick) do
  Inc(buf,Ord(nick[i]));

[celovec]

Нет, вы меня не так поняли. Нужно каждую букву прогнать через ord

допустим Andrej

buf:=ord('A')+ord('n')+ord('d')+ord('r')+ord('e')+ord('j');

Вот так нужно.

[Аватар]

Дык в #3 и написали именно это, только в цикле

[celovec]

Спасибо, я не так понял сообщение от 3D Hunter.
Разобрался.