Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 21.10.2018
Сообщений: 17
1
RAD XE4+

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

18.09.2020, 06:34. Просмотров 333. Ответов 7
Метки нет (Все метки)

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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
unit Laba41;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, Vcl.ExtCtrls,
  VCLTee.TeEngine, VCLTee.Series, Vcl.StdCtrls, Vcl.ComCtrls, VCLTee.TeeProcs,
  VCLTee.Chart, Vcl.Imaging.pngimage;
 
type
  TForm4 = class(TForm)
    Chart1: TChart;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    UpDown1: TUpDown;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit2: TEdit;
    Series1: TLineSeries;
    Image1: TImage;
    Label12: TLabel;
    Label13: TLabel;
    Series2: TLineSeries;
    procedure TrackBar3Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
  u,s,r,t:real;
  k,g:double;
  j,l,h,y:integer;
implementation
 
{$R *.dfm}
 
 
procedure TForm4.Button1Click(Sender: TObject);
var
  h: Integer;
begin
series1.Clear;
series2.Clear;
r:=strtoint(edit1.Text);
t:=trackbar1.Position;
label12.Caption:=edit1.text;
s:=trackbar2.Position;
label13.Caption:=inttostr(trackbar1.Position);
u:=((s*t)/r);
label9.Caption:=formatFloat('#.##',u);
edit2.Text:=formatFloat('#.##',u);
for j := 1 to 100 do
begin
k:=(s*t)/j;
series1.AddXY(j,k);
end;
for h := 0 to 100 do
begin
g:=(s*h)/r;
series2.AddXY(h,g);
end;
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm4.Edit1Change(Sender: TObject);
begin
label12.Caption:=IntToStr (StrToInt(Edit1.Text));
end;
 
 
 
procedure TForm4.TrackBar1Change(Sender: TObject);
begin
 label10.Caption:=inttostr(trackbar1.Position);
 label13.Caption:=inttostr(trackbar1.Position);
end;
 
procedure TForm4.TrackBar2Change(Sender: TObject);
begin
label11.Caption:=inttostr(trackbar2.Position) ;
 
 
end;
 
procedure TForm4.TrackBar3Change(Sender: TObject);
begin
chart1.Chart3DPercent:=trackbar3.Position;
end;
 
 
 
end.
Я перевел на С++ вот так:

C++
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
#include <vcl.h>
#pragma hdrstop
 
#include "Laba41.h"
 
 
#pragma resource "*.dfm"
 
 
#include <System.hpp>
 
 
TForm4* Form4 = NULL;
double u = 0.0, s = 0.0, r = 0.0, t = 0.0;
double k = 0.0, g = 0.0;
int j = 0, l = 0, h = 0, y = 0;
 
 
 
void __fastcall TForm4::Button1Click( TObject* Sender )
{
  int h = 0;
  Series1.Clear;
  Series2.Clear;
  r = strtoint( Edit1.Text );
  t = TrackBar1.Position;
  Label12.Caption = Edit1.Text;
  s = TrackBar2.Position;
  Label13.Caption = inttostr( TrackBar1.Position );
  u = ( ( s * t ) / r );
  Label9.Caption = formatFloat( "#.##", u );
  Edit2.Text = formatFloat( "#.##", u );
  for ( int stop = 100, j = 1; j <= stop; j++)
  {
    k = ( s * t ) / j;
    Series1.AddXY( j, k );
  }
  for ( int stop = 100, h = 0; h <= stop; h++)
  {
    g = ( s * h ) / r;
    Series2.AddXY( h, g );
  }
}
 
 
void __fastcall TForm4::Button2Click( TObject* Sender )
{
  close;
}
 
 
void __fastcall TForm4::Edit1Change( TObject* Sender )
{
  Label12.Caption = inttostr( strtoint( Edit1.Text ) );
}
 
 
void __fastcall TForm4::TrackBar1Change( TObject* Sender )
{
  Label10.Caption = inttostr( TrackBar1.Position );
  Label13.Caption = inttostr( TrackBar1.Position );
}
 
 
void __fastcall TForm4::TrackBar2Change( TObject* Sender )
{
  Label11.Caption = inttostr( TrackBar2.Position );
}
 
 
void __fastcall TForm4::TrackBar3Change( TObject* Sender )
{
  Chart1.Chart3DPercent = TrackBar3.Position;
}
И, кажется, я что-то не так перевел(
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.09.2020, 06:34
Ответы с готовыми решениями:

Перевод из Delphi 7 в Delphi XE2
Вообщем Этот код на delphi 7 спокойно компилируется: Function ResolveIP(HostName: String):...

Перевод на delphi
Помогите перевести на Delphi var x: integer; begin repeat readln(x) until x &gt;=...

Перевод на delphi
Здравствуйте, помогите переводит на delphi program Console; {$APPTYPE CONSOLE} uses ...

Перевод с Delphi на С++
Всем привет. Ребята помогите перевести код проекта с delphi на с++. Вот проект

7
Модератор
6381 / 4067 / 1765
Регистрация: 21.01.2014
Сообщений: 16,985
Записей в блоге: 3
18.09.2020, 10:25 2
Цитата Сообщение от hulichan Посмотреть сообщение
я что-то не так перевел
как минимум - регистр! Если в Дельфи - регистронезависимый код, то в С++ вообще и в С++ Builder в частности регистр важен, иначе получите ошибку.
вот, к примеру:
Delphi
1
r:=strtoint(edit1.Text);
превращается в
C++
1
r = StrToInt(Edit1->Text);
а у Вас что написано?

Свойства визуальных компонентов вызываются не через точку, а через ->... В примере выше это тоже присутствует...

А вообще, компилятор сообщает о том, что ему не нравится и даже номер строки с ошибкой указывает...
Ну и вдогонку: надеюсь, все компоненты, упомянутые в программе, лежат на форме и обработчики событий именно созданы, а не просто написаны?
0
0 / 0 / 0
Регистрация: 21.10.2018
Сообщений: 17
18.09.2020, 20:06  [ТС] 3
Ох, точно! Регистры...

Ага, все компоненты лежат на форме.

Насчет ошибок, не знаю... Я на радстудио учусь, там что-то не показывает ошибки.
0
Модератор
6381 / 4067 / 1765
Регистрация: 21.01.2014
Сообщений: 16,985
Записей в блоге: 3
18.09.2020, 21:16 4
Цитата Сообщение от hulichan Посмотреть сообщение
Я на радстудио учусь
RAD показывает ошибки еще лучше, чем ВСВ6...
1
0 / 0 / 0
Регистрация: 21.10.2018
Сообщений: 17
18.09.2020, 23:26  [ТС] 5
Упс, простите, в любом случае, спасибо за подсказку!
0
59 / 55 / 33
Регистрация: 26.07.2015
Сообщений: 118
22.09.2020, 14:35 6
Для вызовв функции в C++ нужны скобочки.
Вот этот код
C++
1
2
3
4
void __fastcall TForm4::Button2Click( TObject* Sender )
{
  close;
}
Должен быть
C++
1
2
3
4
void __fastcall TForm4::Button2Click( TObject* Sender )
{
  Close();
}
1
0 / 0 / 0
Регистрация: 21.10.2018
Сообщений: 17
23.09.2020, 09:13  [ТС] 7
Цитата Сообщение от Si14 Посмотреть сообщение
Для вызовв функции в C++ нужны скобочки.
Уже разобрался, но все равно спасибо!
0
0 / 0 / 0
Регистрация: 08.11.2015
Сообщений: 59
19.10.2020, 17:09 8
hulichan,
А можно посмотреть, что получилось? Исходник плиз! У меня друг на delphi прогает, а я на c++. Было бы здорово посмотреть как будет реализованы некоторые части его кода у меня на сишнике.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2020, 17:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевод с Delphi на C
Здравствуйте. Помогите пожалуйста перевести код с Delphi на C. Заранее спасибо. unit Unit1; ...

Перевод с Delphi
Что такое &quot;^&quot; и как его перевести на С++ procedure CorrectDevInfo(Buff : PChar) ; var ...

перевод с Delphi
переделываю программу с делфи и столкнулся с трудностью {МНК со степенным базисом} procedure...

Перевод из Delphi в C++
Есть код на Делфи помогите пожалуйста перевести его в С++Bulder. ...... const MapFName =...

Перевод из C++ в Delphi
Помогите перевести код из C++ в Delphi #include &lt;windows.h&gt; #include &lt;stdio.h&gt; #define N 101 ...

Перевод delphi на с++
Помогите, пожалуйста первеести в код с++ builder procedure TForm1.Timer1Timer(Sender: TObject);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.