Последние записи
- Как убрать окно «Подтвердите повторную отправку формы»?
- Windows Driver Framework — подпись драйвера
- Функция GetCurrentProcessToken (processthreadsapi.h)
- With … do и вызов функции. Как получить указатель на сам объект?
- TChromium обработка клика
- Delphi 7: замостить TImage маленьким изображением
- Определить, что кнопка зажата сейчас
- ATmega128 — При появлении положительного фронта на входе PD3 запустить таймер-счётчик 0
- Можно вставить в HTML элемент из XML?
- Не получается запустить компьютер, при старте показывает no codec initialized
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
17th
Июл
Найти среднее арифметическое целых чисел, которые вписаны в несколько полей edit
Posted by Chas under Delphi
как в Delphi найти среднее арифметическое целых чисел, которые вписаны в несколько полей edit и вывести результат в поле memo с помощью кнопки button. Результат не всегда будет целым, его будет нужно округлять до десятых.
Serge_Bliznykov
тогда уже так:
Cnt := 0;
Summ :=0 ;
for i :=0 to Components.Count-1 do
if Components is TEdit then begin
Summ:=Summ+StrToIntDef(TEdit(Components).Text,0);
Inc(Cnt);
end;
if Cnt<>0 then
Memo.Lines.Append(format('%10.1f',[Summ/Cnt]));
использовать перебор ВСЕХ компонентов Edit на форме нужно понимая, все тебе нужны или нет. Если задача стоит найти среднее ВСЕХ Edit’ов на форме
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)