Edit считать символоми

[лелик]

Подскажите пожалуйста, как мне с Edit, где можно вводить только числа, считать символы и преобразовать в число или как обратиться к конкретному символу в введенной строке?

[Vikenty]

К нужному символу так: Edit1.Text[Номер символа]

[лелик]

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

К нужному символу так: Edit1.Text[Номер символа]

я пишу
begin
i:=0;
for j:=0 to length(Shislo.Text) do begin
i:=i+strtoint(Shislo.text[j]);
end;
otvet.Caption:=inttostr(i);
end;
а он все-равно ругается

[Volt]

begin
i:=0;
for j:=1 to length(Shislo.Text) do begin
i:=i+strtoint(Shislo.text[j]);
end;
otvet.Caption:=inttostr(i);
end;

не забывайте либо начинаем цикл с единицы либо отнимаем от length(Shislo.Text) (что бы не было эксцессов). А так у вас получило вот что вы запрашиваете Shislo.text[0] нуливой символ а функция inttostr пытается преобразовать не существующий символ в число. вот вам и ошибка

[лелик]

Если я ничего не вписываю в Shislo, работает нормально, ка если вписываю что-то говорит:
Project ... raised exception class EConvertError with message ''
Что это может значить и как исправить?

[Vikenty]

наверное в edit "присутствуют" не только цифры