Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.10.2006, 19:58   #1
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию как сложить цифры в строке с помощью delphi

перенесено со старого форума. сообщение от 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(строка, символ с которого начинаем копирование,кол-во копируемых сиволов);
Alar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Управление windows с помощью delphi Hallo Обсуждение статей 6 05.09.2010 23:50
написать с помощью рекурсии функцию поиска последнего слова в строке? - Си Cvetok Помощь студентам 1 13.05.2008 15:43
корректировка xls файла с помощью delphi Adept БД в Delphi 2 06.03.2008 10:26
написать БД на Delphi с помощью SQL Tanchik Фриланс 2 13.06.2007 19:06
изменение обоев с помощью delphi Alar Общие вопросы Delphi 0 29.10.2006 20:35