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

22.05.2013, 19:10. Показов 636. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

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

Delphi

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;

Заранее благодарю

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.05.2013, 19:10

Ответы с готовыми решениями:

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

Перевод с Delphi на C#
Помогите пожалуста перевести код с Делфи на C#: uses WinSock; const MAX_PATH = 260; ...

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

Перевод из delphi в c++
Помогите пожалуйста перевести программку из delphi в c++ function ReflectStr(str:string):string;...

	22.05.2013, 19:10

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.05.2013, 19:10

Помогаю со студенческими работами здесь

Перевод из Си в Delphi
Помогите нужно срочно перевести #include <ctype.h> #include <stdio.h> enum { BUFFER_SIZE =...

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

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

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

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

Или воспользуйтесь поиском по форуму:

Наверх