Создание калькулятора (подробнее внутри)

@ZikWall · Регистрация: 21.09.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте!)
Работаю над созданием калькулятора и возникла проблема, дело в том, что калькулятор не совсем обычный (но сути не меняет).
Он вычисляет временные промежутки или разницу во времени между часами следовательно в нем предусмотрено только вычитание и складывание времени в 2-х режимах: минутах и часах.
Короче говоря проблема точнее 2 проблемы:
1. Как сделать так, чтобы в обоих эдитах можно было вводить с формы, а то первая у меня вводится, но вторую не знаю как пристроить))
2. Нужно сделать вывод результата в эдит в формате ЧЧ:ММ
Как их реализовать?

Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '1';
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
  If (Edit1.Text <> '') And (Edit2.Text <> '') then
  // Проверяем не пустые ли поля
Calculate := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
  // Преобразуем из строкового типа Edit1 и Edit2 в дробный, а для вывода в Edit3 преобразуем из дробного в строковой.
  Label4.Caption:= '+';
  Label4.Font.Size:= 10;
  Edit3.Clear;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
  { Режим минут }
    if MinutesMode.Checked
        then
          Calculate:= FloatToStr(StrToFloat(Calculate) / 60);
//Calculate:= FloatToStr(StrToFloat(FloatToStrF(StrToInt(Calculate),fffixed,2,2)) / 60);
    { Режим часов }
    if HoursMode.Checked
        then
            Edit3.Text:= Calculate;
  //Edit3.Text:= Calculate;
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
  If (Edit1.Text <> '') And (Edit2.Text <> '') then
Calculate := FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text));
Label4.Caption:= '-';
Label4.Font.Size:= 11;
Edit3.Clear;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + ',';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '2';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '3';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '4';
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '5';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '6';
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '7';
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '8';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text + '9';
end;

Прикрепляю изображения калькулятора на второй фотографии показано как должен выглядеть вывод результата

@ZikWall · 21.11.2015, 12:41 **[ТС]**

Еще раз спасибо всем!

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@ZikWall 0 / 0 / 3 Регистрация: 21.09.2015 Сообщений: 135
	21.11.2015, 12:41 [ТС]
	Еще раз спасибо всем! 0