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

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

Войти
Регистрация
Восстановить пароль
 
ihodo9t
Сообщений: n/a
#1

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

22.05.2013, 19:10. Просмотров 488. Ответов 0
Метки нет (Все метки)

Прошу помощи при переводе кода из Delphi в С++:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  F: File of Byte;
  i,j: Integer;
begin
  i:=StrToInt(Edit1.Text);
  j:=StrToInt(Edit2.Text);
  if (i>255) or (j>255) then
  begin
    ShowMessage('Числа должны быть в ределах 0-255');
    Exit;
  end;
  AssignFile(F,'MyBinFile.bin');
  ReWrite(F);
  Write(F,i);
  Write(F,j);
  CloseFile(F);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  F: File of Byte;
  i,j: Byte;
begin
  AssignFile(F,'MyBinFile.bin');
  Reset(F);
  Read(F,i);
  Read(F,j);
  CloseFile(F);
  Edit1.Text:=IntToStr(i);
  Edit2.Text:=IntToStr(j);
end;
Заранее благодарю
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 19:10     Перевод из Delphi в С++
Посмотрите здесь:

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

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

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

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

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

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

перевод из 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)>0)&&(((100*x1+10*x2+x3)*y1...

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


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

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

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