Перевести код с Delphi на C++

@Bahytzhan9898 · Регистрация: 14.10.2016

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

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    cal1: TMonthCalendar;
    edt1: TEdit;
    lbl1: TLabel;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
var
  i : Text;
  pogoda: Real;
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(i,'pogoda.txt');
Rewrite(i);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
pogoda :=StrToFloat(Edt1.Text);
WriteLn(i,DateToStr(Cal1.Date)+', '+'Температура: '+FloatToStr(pogoda)+' C');
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(i);
end;
 
end.

Там ошибся.)) Это код В Делфи. Надо в С++ написать. Но не знаю как.

@nmcf · 08.11.2016, 07:38

В Builder, что ли?

@D1973 · 08.11.2016, 15:02

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <memory>
...
void __fastcall TForm1::btn1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> L(new TStringList);
  if(FileExists("c:\\tmp\\pogoda.txt")) L->LoadFromFile("c:\\tmp\\pogoda.txt");
  double d;
  if(!TryStrToFloat(Edit1->Text, d))
   {
     ShowMessage("Неверно введено значение температуры!");
     Edit1->Text = "";
     Edit1->SetFocus();
     return;
   }
  L->Add(String().sprintf(L"%s, Температура: %0.2f", DateToStr(cal1->Date), d));
  L->SaveToFile("c:\\tmp\\pogoda.txt");
}

@Bahytzhan9898 · 08.11.2016, 21:59 **[ТС]**

да. я просто не шарю.

Новые блоги и статьи Все статьи Все блоги /
Winforstrap или красявый дизайн своими руками на HTML+JS+Winforms anomal6 04.03.2025 Сидел тут вечером ковырял проект на MAUI, и как же глупо создаются пакеты MSIX и система обновлений пакета публикации, но не об этом. Бывает нужен современный дизайн программы а писать на MAUI,. . .	Формат данных для симуляции физики, посредством распространённых не обученных моделей. Hrethgir 04.03.2025 Что-то как-то снова потерялось, зато катангенсы закатангесились в одном сообщении. На днях писал, что планирую для работы апгрейдить (на этот раз удачно) девайс для работы (конкретно - здоровья для,. . .	Концепция variadic CoderHuligan 04.03.2025 Мне не очень нравится (а кому это нравится?) что у нас есть отдельно компилятор, отдельно линковщик, причем со своим собственным командным языком. При этом усложнении надо знать помимо языка. . .	Java Record или Kotlin Data Class: что лучше для неизменяемых данных Wired 04.03.2025 Java Record и Kotlin Data Class — два мощных инструмента для обуздания неизменяемых структур данных, каждый со своим уникальным подходом к решению этой задачи. История их появления весьма. . .	Создание производительных API с Java и gRPC Wired 04.03.2025 В мире микросервисной разработки вопрос производительности часто становится краеугольным камнем. И хотя REST API давно завоевал сердца разработчиков своей простотой и интуитивностью, при высоких. . .
Что нового в JDK 24 Wired 04.03.2025 JDK 24 — это настоящий прорыв в эволюции Java, который кардинально меняет правила игры. В этом релизе разработчики Oracle наконец-то довели до ума множество критически важных улучшений в. . .	Разработка блокчейн с использованием Java: смарт-контракты и dApp Wired 04.03.2025 Погружаясь в мир блокчейн-разработки на Java, разработчик получает доступ к внушительному арсеналу инструментов. В отличие от Solidity, который "заперт" в экосистеме Ethereum, Java предоставляет. . .	WebAssembly в Kubernetes stackOverflow 03.03.2025 В современной экосистеме облачных технологий WebAssembly (Wasm) становится все более значимым компонентом, предлагая уникальный подход к выполнению кода в распределенных системах. Эта технология. . .	GitHub Actions или Jenkins: Выбираем CI/CD платформу stackOverflow 03.03.2025 Непрерывная интеграция и развертывание (CI/ CD) изменили подход к разработке программного обеспечения, превратив его в бесшовный процесс от написания кода до развертывания в продакшн. GitHub Actions и. . .	Автоматизация тестирования Pull Request в Kubernetes: Интеграция с GitHub Actions и GKE stackOverflow 03.03.2025 Масштабные проекты с использованием Kubernetes требуют надежной системы тестирования изменений перед их внедрением в продакшн-среду. Традиционный подход с ручной проверкой Pull Request не справляется. . .

@nmcf 7803 / 6567 / 2988 Регистрация: 14.04.2014 Сообщений: 28,705
	08.11.2016, 07:38	2
	В Builder, что ли? 0

@Bahytzhan9898 0 / 0 / 0 Регистрация: 14.10.2016 Сообщений: 24
	08.11.2016, 21:59 [ТС]	4
	да. я просто не шарю. 0