Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Как осуществить перемещение изображения по форме? Есть форма,что то вроде теста. Принцип работы прост. Например слово жидкость перетаскиваем на серое поле,где происходит проверка true or else,при else будет отображено сообщение об ошибке. Так вот как и какими компонентами можно осуществить само перемещение этих полей? Опыта в дэлфи мало и с таким первый раз сталкиваюсь,были идеи через кнопки сделать,но как в запущенной программе осуществить... https://www.cyberforum.ru/ delphi-beginners/ thread2038166.html Задача с треугольником Delphi
Задача звучит так- треугольник задан координатами вершин, найти медианы. Координаты вершин вводятся с клавиатуры, и чтобы найти длины нужно использовать соответствующие формулы , но видимо я что то недопонимаю и после ввода координат ничего не происходит, помогите в чем ошибка как ее исправить. program Project1; {$APPTYPE CONSOLE} {$R *.res} uses
Delphi Нужно чтобы считало общее кол-во цифр и знаков(+,-,*). Цифры сделал https://www.cyberforum.ru/ delphi-beginners/ thread2038159.html
Часть уже написал- подсчёт цифр, надо сделать ещё знаки(строка s вводится с клавы) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)
Delphi В строке произвольной длины найти символ "а" и удалить за ним 5 символов https://www.cyberforum.ru/ delphi-beginners/ thread2038115.html
Знаю только то , что надо делать через массив(по-другому, вроде никак).
Вставка изображения png Delphi
Инструмент Image1 вставляешь картинку в формате пнг без фона, но когда запускаешь программу появляется белый фон, как быть ? У меня стоит черный фон у программы (альфаскины)
Delphi Процедуры и функции Создал 2 формочки , 2-ая с помощью функции описывает факториал числа , в чём проблема , не робит.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread2038020.html
Delphi Расчет CRC16 для Modbus https://www.cyberforum.ru/ delphi-beginners/ thread2038011.html
Здравствуйте. Пишу расчет CRC16 для Modbus по описанию: http://piclist.ru/S-CRC16-RUS/CRC16.html 1. В регистр CRC заносится начальное значение FFFFh. 2. В конец сообщения добавляется 16 нулевых битов. 3. Содержимое регистра сдвигается влево на 1 бит, и в последнюю (нулевую) позицию заносится очередной, ещё не обработанный бит данных. 4. Если из регистра был выдвинут бит со значением "1", то...
Delphi. Дан Массив А (18). Вычислить среднее арифметическое значение элементов массива А, условие 0<=A(i)<=100 Delphi
Помогите пожалуйста написать программу..
Delphi Delphi. Определить максимальное число в 3-й строке двумерного массива. Указать его индексы Помогите пожалуйста с программой на Delphi.. https://www.cyberforum.ru/ delphi-beginners/ thread2037980.html Delphi Tedit как сделать что бы поле не редактировалось Уважаемые форумчане, как сделать что бы поле Tedit не редактировалось, то есть после запуска программы у меня в нем пишутся числа, но можно просто навести мышкой на поле нажать, и изменить эти числа, как сделать что бы такое не допускалось ? https://www.cyberforum.ru/ delphi-beginners/ thread2037910.html
Delphi Пытаюсь сделать динамическую загрузку dll. Dll-библиотека не подает признаков жизни
Здравствуйте. У меня такое дело, я пытаюсь создать в своей программе динамическую загрузку dll-библиотеки: type TApple = procedure; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public
Delphi Необходимо использовать только целочисленные результаты Здравствуйте, имеется вот такой код для решения задачи (формула выведена). Проблема в том, что мне необходимо, чтобы количество монахов было только целочисленным, и для этого я попробовал использовать условие окончание цикла until A+B+C=M and frac(B)=0 and frac(C)=0 Но компилятор пишет об ошибке несовместимости типов. Если использовать условие until A+B+C=M То программа работает, но... https://www.cyberforum.ru/ delphi-beginners/ thread2037890.html
Модератор
9260 / 6038 / 2379
Регистрация: 21.01.2014
Сообщений: 25,802
Записей в блоге: 3
11.09.2017, 08:38 0

Определить время окончания рабочего дня зная время начала и продолжительность - Delphi - Ответ 10744072

11.09.2017, 08:38. Показов 1596. Ответов 5
Метки (Все метки)

Ответ

Хотя можете не перепечатывать и попыток не показывать... Из Вашего задания понятно, что надо Вам не более, чем это...
Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var h, m: integer;
begin
 h := StrToInt(Edit1.Text) + StrToInt(Edit3.Text);
 m := StrToInt(Edit2.Text) + StrToInt(Edit4.Text);
 Edit5.Text := IntToStr(h + m div 60);
 Edit6.Text := IntToStr(m mod 60);
end;


Вернуться к обсуждению:
Определить время окончания рабочего дня зная время начала и продолжительность Delphi
Миниатюры
Определить время окончания рабочего дня зная время начала и продолжительность  
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2017, 08:38
Готовые ответы и решения:

Оставшееся время до окончания выполнения операции
всем привет искал по этому вопросу - ничего не нашел интересует: как рассчитать оставшееся время...

Определить перменную расписания,содержащую:день недели,количество пар в этот день,время начала и конца пары,название предмета,фамилию преподавателя
Определить перменную расписания,содержащую: -день недели -количество пар в этот день ...

Заменить в англоязычном тексте окончания слов "ing 'на' ed ', сжав в то же время текст
Заменить в англоязычном тексте окончания слов &quot;ing 'на' ed ', сжав в то же время текст.

Показывать не только дату окончания/начала но и время
Добрый день Подскажите пожалуйста как сделать так, чтобы в данных ячейках показывалось не только...

5
11.09.2017, 08:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.09.2017, 08:38
Помогаю со студенческими работами здесь

Засечь время от начала одной операции до окончания другой
Такая задача- допустим юзер открывает файл, текстовый, который потом выводится в TMemo, нужно...

Время в миллисекундах с начала дня
Подскажите, как получить время в миллисекундах с 00.00

Вычислить длительность процесса, зная время начала и конца
Добрый вечер, шарящие люди) Столкнулся с тем что приходится в домашних условиях учиться...

Получить время в секундах с начала дня в виде числа типа Int32
TimeSpan current_time = DateTime.Now.TimeOfDay; Добавлено через 57 минут Хочу получить время...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru