Нужно преобразовать код с Delphi на С++

@Деен · Регистрация: 05.12.2015

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

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//создание таблицы
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
randomize;
with StringGrid1 do
 begin
  ColCount:=5;
  RowCount:=5;
  DefaultColWidth:=40;
  for i:=1 to 4 do
   begin
    Cells[i,0]:=IntToStr(i);
    Cells[0,i]:=IntToStr(i);
   end;
  for i:=1 to 4 do
  for j:=1 to 4 do
  Cells[i,j]:=IntToStr(random(100));
 end; 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим что ввели целые числа
if not TryStrToInt(Edit1.Text,i) or
   not TryStrToInt(Edit2.Text,i) then
    begin
     ShowMessage('Вы ввели не целое число');
     exit
    end
//если да, то проверим что от 1 до 4
else
if not (StrToInt(Edit1.Text) in [1..4]) or
  not (StrToInt(Edit2.Text) in [1..4]) then
    begin
     ShowMessage('Номера строки и столбца должны быть от 1 до 4');
     exit
    end;
i:=StrToInt(Edit1.Text);
j:=StrToInt(Edit2.Text);
Edit3.Text:=StringGrid1.Cells[j,i];
end;
 
end.

@D1973 · 15.10.2018, 16:35

А зачем эту ерунду преобразовывать? Не проще ли задание озвучить?

@lifeforce · 15.10.2018, 20:18

C++
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
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
                 StringGrid1->ColCount = 5;
                 StringGrid1->RowCount = 5;
                 StringGrid1->DefaultColWidth = 40 ;
                 for (int i = 0; i < 5; i++)
                 {
                  StringGrid1->Cells[i][0] = IntToStr(i);
                  StringGrid1->Cells[0][i] = IntToStr(i);
                     }
                 for (int i = 0; i < 5; i++)
                 for (int j = 0; i < 5; j++)
                StringGrid1->Cells[i][j] = rand() % 100; // range 0 to 99
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 //проверим что ввели целые числа
 try {
 StrToInt(Edit1->Text);
 StrToInt(Edit2->Text);
     }
     catch(...)
     {ShowMessage("Вы ввели не целое число");
     return;
     }
 //если да, то проверим что от 1 до 4
 if(
 (StrToInt(Edit1->Text) < 1 && StrToInt(Edit1->Text)>4)
 ||
 (StrToInt(Edit2->Text) < 1 && StrToInt(Edit2->Text)>4)
  ) ShowMessage("Номера строки и столбца должны быть от 1 до 4");
 else
    //int i=StrToInt(Edit1->Text);
    //int j=StrToInt(Edit2->Text);
    //  Edit3->Text=StringGrid1->Cells[j][i];// здесь ошибка??? в первом условии Cells[i][j], а здесь обратно Cells[j][i]
   // или так
   Edit3->Text=StringGrid1->Cells[StrToInt(Edit2->Text)][StrToInt(Edit1->Text)];
    }
//---------------------------------------------------------------------------

@volvo · 15.10.2018, 20:40

[SARCASM]
Мне кажется, или действительно маловато преобразований StrToInt в коде?
[/SARCASM]

На самом деле, тут достаточно по одному разу вызвать TryStrToInt для каждого из Edit-ов:

C++
1
2
3
4
5
6
7
8
9
10
11
12
int i, j;
if(!TryStrToInt(Edit1->Text, i) || !TryStrToInt(Edit2->Text, j))
{
    ShowMessage("Вы ввели не целое число"); return;
}
// если да, то проверим что от 1 до 4
else
    if(!InRange(i, 1, 4) || !InRange(j, 1, 4)) // должно быть #include <Math.hpp>
    {
        ShowMessage("Номера строки и столбца должны быть от 1 до 4"); return;
    }
Edit3->Text = StringGrid1->Cells[j][i];

@lifeforce · 15.10.2018, 22:40

здесь надо было только преобразовать из Нужно преобразовать код с Delphi на С++
никаких простых преобразований . только копия

и если Деен постиг таких знаний - то может пригодиться

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@D1973 Модератор 9911 / 6448 / 2455 Регистрация: 21.01.2014 Сообщений: 27,374 Записей в блоге: 3
	15.10.2018, 16:35
	А зачем эту ерунду преобразовывать? Не проще ли задание озвучить? 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	15.10.2018, 22:40
	здесь надо было только преобразовать из Нужно преобразовать код с Delphi на С++ никаких простых преобразований . только копия и если Деен постиг таких знаний - то может пригодиться 0