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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
BARS08
1 / 1 / 0
Регистрация: 28.09.2013
Сообщений: 92
#1

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

02.06.2014, 12:53. Просмотров 135. Ответов 0
Метки нет (Все метки)

Помогите переделать из 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2014, 12:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Delphi в C++ (C++):

Перевод из Delphi в c++ - C++
Помогите перевести код в с++ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Перевод из delphi в c++ - C++
Помогите пожалуйста перевести программку из delphi в c++ function ReflectStr(str:string):string; var i:integer; begin for i:=0...

Перевод из Delphi в C++ - C++
Есть код на Делфи помогите пожалуйста перевести его в С++Bulder. ...... const MapFName = 'D:\MIKHAILP\DOCUM\Projects\ISTC_robot ...

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

Перевод Turdo Delphi в C++ - C++
Нужно перевести программу, написанную на языке Turdo Delphi в C++. Вот сам код: program PT1; {$Apptype Console} uses SysUtils; ...

Перевод кода с Delphi на C++ - C++
procedure TForm2.Edit1Change(Sender: TObject); begin ADOTable1.Filtered:=false; ADOTable1.Filter:='Фамилия LIKE...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2014, 12:53
Привет! Вот еще темы с ответами:

перевод из Delphi в Builder - C++
type Point = record color : TColor; x, y : Integer; end; type PointArray = array of array of Point; var pa:...

Работа со строками - перевод с Delphi в С++ - C++
Доброго времени суток! Проблема с переводом кода в С++. Сам код в Delphi: var FM : TextFile; i: Integer; ...

Перевод кода с Delphi, деление нацело - C++
во общем есть условие { if ((y4*x3 div 10).quot==4) if (((100*x1+10*x2+x3)*y1 div 100)&gt;0)&amp;&amp;(((100*x1+10*x2+x3)*y1...

Перевод из Delphi (Алгоритм нахождения наибольшего паросочетания в двудольном графе) - C++
UNIT1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...


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

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

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