» Сложение цифр в строке - Delphi, Общие вопросы, Delphi. Библиотека исходников форума программистов - programmersforum.ru

delphi исходники для управления windows

У нас вы качаете только рабочие исходники

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

Home

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

Сложение цифр в строке

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

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;

Эта запись была добавлена в Воскресенье, 9 декабря, 2007 - 16:08 В разделы Delphi, Общие вопросы. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.

Обсуждение закрыто.

Emtas турецкий пеллетный котёл

Пеллетные котлы интернет магазин

Архивы
- Май 2008
- Декабрь 2007
Категории
- Delphi (226)
  - BDE (3)
  - dll (10)
  - Exceptions (2)
  - IDE (10)
  - INI-файлы (3)
  - OLE (2)
  - БД (7)
  - Игры (19)
  - Медиа (11)
  - Ресурсы (12)
  - Сеть, модем (22)
  - Система (33)
  - Файлы (6)
  - Функции (6)
- Microsoft Office (12)
  - Excel (7)
  - Word (5)
- Pascal (12)
- Win API (85)
  - Hooks (4)
  - Завершение работы (13)
  - Запуск программ (16)
  - Общие вопросы (22)
  - Окна (1)
  - Переменные среды (9)
- Алгоритмы (86)
  - Графика (52)
  - Дата, время (6)
  - Кодирование (6)
  - Математика (4)
  - Преобразования (4)
- Аппаратные средства (76)
  - BIOS (3)
  - CD, DVD (7)
  - Видеосистема (3)
  - Диски (4)
  - Звуковые устройства (4)
  - Источники питания (1)
  - Клавиатура (24)
  - Мышка (5)
  - Порты (20)
  - Процессор (4)
  - Сетевая карта (1)
- Базы данных (29)
  - ADO (9)
  - BLOB поля (11)
  - DBase (1)
  - interbase (5)
  - MS Office (2)
  - sql (1)
- Классы (28)
  - Application (5)
  - TBitMap (4)
  - TCanvas (2)
  - TDateTime (1)
  - TFont (4)
  - TIcon (2)
  - TJpegImage (1)
  - TList (1)
  - TmetaFile (1)
  - TString, TStrings (4)
- Компоненты (172)
  - BitBtn (4)
  - ComboBox (2)
  - CoolBar (1)
  - DBCtrlGrid (1)
  - DBGrid (18)
  - DBImage (2)
  - DrawGrid (1)
  - Edit (3)
  - FileListBox (1)
  - form (29)
  - image (12)
  - ImageList (3)
  - Label (1)
  - ListBox (9)
  - ListView (2)
  - MediaPlayer (6)
  - Memo (8)
  - Menu (5)
  - PageControl (1)
  - ProgressBar (2)
  - Query (1)
  - RadioButton (1)
  - RadioGroup (1)
  - RichEdit (4)
  - ScrollBox (3)
  - ShellListView (2)
  - SpeedButton (1)
  - StatusBar (1)
  - StringGrid (4)
  - TabbedNoteBook (1)
  - Timer (2)
  - TrackBar (1)
  - TreeView (15)
  - WebBrowser (6)
- Операционная система (183)
  - Help (3)
  - Диалоги (25)
  - Процессы (26)
  - Реестр (5)
  - Сети, интернет (36)
  - Сообщения (7)
  - Файловая система (37)
  - Экран (13)
  - Ярлыки (5)
- Разное (79)
Кейворды

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