Двумерный массив

[veniside]

> Более того, нельзя объявлять типы внутри процедур!

можно

> Также нельзя писать процедуры внутри других процедур:

можно

> Процедуры должны писАться отдельнo

не должны.

Зачем писать о том, чего не знаете? Код ниже прекрасно работает.

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
type
  myArray = array[1..10, 1..10] of real;

  procedure copyArray(const a: myArray; var b: myArray);
  var
    i, j: Integer;
  begin
    for i := 1 to 10 do
      for j := 1 to 10 do
        if (0 > a[i, j]) then
          b[i, j] := 0
        else
          b[i, j] := a[i, j];
  end;

var
  a, b: myArray;
begin
  // fill a with data
  // ...
  //
  copyArray(a, b);
end; 


[Вадим Мошев]

Честно скажу, не знал об этом...
Спасибо.

Зачем писать о том, чего не знаете?

Ну, ничего страшного с человеком не случилось оттого, что я ему это сказал. Просто если он этого не знает, он не запутается.
Это можно сравнить вот с чем.

Начинающий велосипедист уже пытается выполнить различные трюки на велосипеде, прыгать с трамплинов, ездить на переднем колесе. Из этого ничего хорошего не выйдет, он просто сам травмируется и/или сломает велосипед.

И вопрос:

procedure copyArray(const a: myArray; var b: myArray);

Зачем надо принимать массив A как константу? ИМХО, здесь это ни к чему, на выходе он всё равно не сможет измениться, если мы перед ним не написали Var

[Stilet]

Зделайте пожалст как правильно.

Но исправлюсь)

Ну дык? Исправляйся.

[New man]

процедуры внутри другой процедуры обьявлять можно

аа, не заметил что другие уже написали
я читал что когда массивы передаешь как константы они
передаются быстрее, т.к. при передаче згачения,
переменные копируются в другую область памяти

[RONS]

type
TForm1 = class(TForm)
strngrd1: TStringGrid;
strngrd2: TStringGrid;
btn1: TButton;
procedure strngrd1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);

Тут выдает ошибку.

[veniside]

Зачем надо принимать массив A как константу? ИМХО, здесь это ни к чему, на выходе он всё равно не сможет измениться, если мы перед ним не написали Var

Если передать массив без const, то при каждом входе в процедуру в стеке будет создаваться его локальная копия. Думаю, не нужно рассказывать, как это отразится на производительности и как быстро исчерпается стек.

[Вадим Мошев]

veniside, спасибо большое, буду знать...

RONS

procedure strngrd1Click(Sender: TObject);

Сдаётся мне, должно быть написано так: procedure stringrd1Click(Sender: TObject);

[RONS]

Сообщение от Вадим Мошев

veniside, спасибо большое, буду знать...

RONS


Сдаётся мне, должно быть написано так: procedure stringrd1Click(Sender: TObject);

В делфи 7 так и есть

strngrd1Click