сумма ascii кодов всех символов строки (Delphi)

[YaVi]

Помогите пожалуйста разобраться в чем здесь ошибка. Необходимо считать из Edit строку и найти сумму ascii кодов всех ее символов. При компиляции ошибок не показывает. Если ввожу в edit цифры,то все работает отлично,а вот с буквами не хочет.

   passw:string;
   si:char;
   k:integer;
   ....
      passw:=edit2.text;
      pw:=0;
      for k:=1 to Length(passw) do
      begin
      si:=passw[k]; pw:=pw+ord(si); end;

[ZX Spectrum-128]

Работает. С любыми символами

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  sum:integer;
begin
  for i:=1 to length(Edit1.Text) do
    sum:=sum+Ord(Edit1.text[i]);
  ShowMessage(Inttostr(sum));  
end;

[Serge_Bliznykov]

YaVi, не вижу в вашем коде явных косяков!
с чего Вы решили, что Ваш код не работает?!



ZX Spectrum-128, категорически НЕТ!!!!
допущена грубая ошибка - использование неиницилизированной переменной sum!


ZX Spectrum-128, вставьте проект на кнопку такой код:

procedure TForm1.Button1Click(Sender: TObject);
var sum : integer;
begin
  ShowMessage('sum='+IntToStr(sum))
end;

и попробуйте угадать, чему будет равняться sum!

[ZX Spectrum-128]

Согласен, косякнул. От балды какое-то значение выведет. Или 0. Или вряд ли.

[Serge_Bliznykov]

От балды какое-то значение выведет.

точно так.
На форуме обсуждались вопросы иницилизации переменных компиляторами Borland. Если интересно - можете найти и ознакомиться.
Если вкратце - глобальные переменные иницилизируются компилятором, но локальные выделяются в стеке и там получается мусор. Такие переменные нужно иницилизировать ОБЯЗАТЕЛЬНО.

На мой взгляд, переменные перед использованием нужно иницилизировать всегда!
И мне в этом отношении C# (платформа .NET) нравится - там, если Вы переменную описали, а дальше пытаетесь из неё прочитать значение до того, как Вы в неё что-то записали - компилятор выдаст ошибку и не пропустит такой код. Что, имхо, правильно!

[type_Oleg]

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

а вот с буквами не хочет.

Не хочет, это как ?
Я попробовал - работает.
яя равно 510 (2 раза по 255)
1 я равно 336 (49+32+255)

Все правильно. Проверьте коды символов.

Там не видно, надеюсь у вас

var pw:Integer;

Тип Byte, например нельзя, ответ будет не более 255.