Форум программистов, компьютерный форум CyberForum.ru

Перевод из Delphi в C++ - C++

Восстановить пароль Регистрация
 
BARS08
0 / 0 / 0
Регистрация: 28.09.2013
Сообщений: 49
02.06.2014, 12:53     Перевод из Delphi в C++ #1
Помогите переделать из Delphi в C++
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
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
s:string;
n,nn,n1,n2,i:integer;
begin
s:=' Наступила зима(температура -5).Выпал снег(10 см).';
edit1.Text:=s;
n:=Length(s);
for i:=1 to n do
begin
n1:=pos('(',s);
n2:=pos(')',s) ;
nn:=n2-n1+1;
if (i>=n1) and(i<=n2) then delete(s,n1,nn);
end;
edit2.Text:=s;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2014, 12:53     Перевод из Delphi в C++
Посмотрите здесь:

C++ Перевод из Delphi в c++
Перевод из Delphi в C++ C++
перевод из С++ в Си C++
Перевод Turdo Delphi в C++ C++
Перевод из delphi в c++ C++
перевод из Delphi в Builder C++
C++ Перевод с Delphi на С++
Перевод из Delphi (Алгоритм нахождения наибольшего паросочетания в двудольном графе) C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 15:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru