Из delphy в C++Builder

@filin1994 · Регистрация: 19.03.2013

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

Добрый день помогите пожалуйства переделать код из delphi в C++Builder. С массивами не могу понять как работать.

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Math, Buttons, ExtCtrls;
const
    RMax=100;
 
type
  TForm1 = class(TForm)
    sgA: TStringGrid;
    sgB: TStringGrid;
    Button1: TButton;
    edN: TLabeledEdit;
    edM: TLabeledEdit;
    BbChange: TBitBtn;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BbChangeClick(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  N,M,k,z:integer;
  i,j:integer;
  A:array [1..RMax,1..RMax] of extended;
  B:array [1..RMax] of byte;
  
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  N:=3;  
  M:=3;  
  edN.Text:= IntToStr(N);
  edM.Text:= IntToStr(M);
 
  sgA.ColCount:=M+1;
  sgA.RowCount:=N+1;
  sgB.ColCount:=M+1;
  sgA.Cells[0,0]:='Массив А:';
  sgB.Cells[0,0]:='Массив B:';
  for i:=1 to N do begin
   for j:=1 to M do begin
    sgA.Cells[0,i]:='i='+IntToStr(i);
    sgA.Cells[j,0]:='j='+IntToStr(j);
    sgB.Cells[0,i]:='i='+IntToStr(i);
    sgB.Cells[j,0]:='j='+IntToStr(j);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to N do
for j:=1 to M do
A[i,j]:= StrToFloat(sgA.Cells[j,i]);
for i:=1 to N do
 begin
   k:=0;
   for j:=2 to M do
   if A[i,j]>=A[i,j-1]then
    begin
      k:=1;
      break;
     end;
   if k=0 then B[i]:=1
   else B[i]:=0;
 end;
for i:=1 to M do
sgB.Cells[i,1]:=IntToStr(B[i])       
 
end;
 
procedure TForm1.BbChangeClick(Sender: TObject);
begin
  N:=StrToInt(edN.Text);
  M:=StrToInt(edM.Text);
 
 
  sgA.ColCount:=M+1;
  sgA.RowCount:=N+1;
  sgB.ColCount:=M+1;
}
  for i:=1 to N do begin
   for j:=1 to M do begin
    sgA.Cells[0,i]:='i='+IntToStr(i);
    sgA.Cells[j,0]:='j='+IntToStr(j);
    sgB.Cells[0,i]:='i='+IntToStr(i);
    sgB.Cells[j,0]:='j='+IntToStr(j);
   end;
  end;
end;
end.

@D1973 · 25.02.2014, 07:54

Что-то я не совсем понял, что должно произойти при нажатии кнопки Button1...
Или у Вас не полный код или он совсем кривой... Какое задание то?

@Kulgar · 25.02.2014, 10:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to N do
for j:=1 to M do
A[i,j]:= StrToFloat(sgA.Cells[j,i]);
for i:=1 to N do
 begin
   k:=0;
   for j:=2 to M do
   if A[i,j]>=A[i,j-1]then
    begin
      k:=1;
      break;
     end;
   if k=0 then B[i]:=1
   else B[i]:=0;
 end;
for i:=1 to M do
sgB.Cells[i,1]:=IntToStr(B[i])       
 
end;

Сообщение от D1973

Что-то я не совсем понял, что должно произойти при нажатии кнопки Button1...

Проверка упорядоченности строк на неубывание.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (i=1;i<N;i++)
        for (j=1;j<M;j++)
            A[i][j]= StrToFloat(sgA->Cells[j][i]);
    for (i=1;i<N;i++)
    {
        k=0;
        for (j=2;j<M;i++)
            if (A[i][j]>=A[i][j-1])
            {
                k=1;
                break;
            }
        if (k==0)
            B[i]=1;
        else
            B[i]=0;
    }
    for (i=1;i<M;i++)
        sgB->Cells[i][1]=IntToStr(B[i]);
}

P.S. По какой причине в первом цикле для sgA итераторы i и j поменены местами не понял.

@volvo · 25.02.2014, 11:32

По той причине, Kulgar, что у грида при обращении к Cells первый индекс - индекс столбца, а второй - индекс строки. В отличие от обычного массива, у которого наоборот: первый - строка, второй - столбец...

@Kulgar · 25.02.2014, 11:42

UI, никогда с ними не работал в своих проектах. Спасибо, буду знать.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	25.02.2014, 07:54
	Что-то я не совсем понял, что должно произойти при нажатии кнопки Button1... Или у Вас не полный код или он совсем кривой... Какое задание то? 0

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	25.02.2014, 11:32
	По той причине, Kulgar, что у грида при обращении к Cells первый индекс - индекс столбца, а второй - индекс строки. В отличие от обычного массива, у которого наоборот: первый - строка, второй - столбец... 1

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	25.02.2014, 11:42
	UI, никогда с ними не работал в своих проектах. Спасибо, буду знать. 0