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

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

Войти
Регистрация
Восстановить пароль
 
ihodo9t
Сообщений: n/a
22.05.2013, 19:10     Перевод из Delphi в С++ #1
Прошу помощи при переводе кода из 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 в С++
Посмотрите здесь:

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

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

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

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