как сложить цифры в строке с помощью delphi

[Alar]

перенесено со старого форума. сообщение от vase21.

Подскажите пожалуйста как в Edit сложить цифры числа, т.е есть двузначное число 45 , как сделать чтоб на выходе получалось 4+5=9

перенесено со старого форума. сообщение от plague.

procedure TForm1.Edit1Change(Sender: TObject);
var
sum,i:integer;
s:string;
begin
sum:=0;
s:=edit1.Text;
for i:=1 to length(s) do
sum:=sum+strtoint(s[i]);
label1.Caption:=inttostr(sum);
end;

Заметь здесь нет проверки правильности числа и числа только целые
если тебе это нужно, то думаю модифицировать будет не сложно.

перенесено со старого форума. сообщение от Alar.

Для преобразования строки в целое число используем функцию strtoint();
Для преобразования целого числа в строку inttostr();
для того чтобы взять определённое кол-во символов из строки используй функцию copy(строка, символ с которого начинаем копирование,кол-во копируемых сиволов);