передача массива в процедуру через указатель Опции

[compiler]

Добрый день!
В целях оптимизации моей программы я решил передавать процедурам не матрицу, а указатель на нее... Но у меня это никак не получается...

type
        Arr=array[0..1, 0..1] of integer;
        PT = ^Arr;
procedure pr(var ar:PT);
begin
       ar^[1, 1]:=0;
end;
var     a: Arr;
begin
        pr(a);        {<---? Как вызвать pr(a^)  или pr(@a) или ...?}
end.

как ни странно, поиском ничего не нашел... может плохо искал?

заранее благодарен.

[volvo]

Ты не сможешь сконструировать указатель "на лету", потому что в процедуру у тебя передается Var-параметр, то есть - это должна быть переменная...

var
  a: Arr;
  pa: PT;
begin
  pa := @a;
  pr(pa); { <--- так должно сработать }
end.

Добавлено через 3 мин.
P.S. В чем заключается "оптимизированность" такого варианта по сравнению, скажем, с передачей:

procedure pr(var ar: Arr);

можно узнать?

[compiler]

Ты не сможешь сконструировать указатель "на лету", потому что в процедуру у тебя передается Var-параметр, то есть - это должна быть переменная...

спасибо... а как можна передавать еще? const?

.. В чем заключается "оптимизированность" такого варианта ...

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

[Client]

procedure pr(var ar: Arr);

А так не тот же массив передастся? Ведь исользуется как VAR-параметр, т.е. сам массив

[compiler]

procedure pr(var ar: Arr);

А так не тот же массив передастся? Ведь исользуется как VAR-параметр, т.е. сам массив

да имеено так он передается, а так

 procedure pr(var ar:PT)

недолжен(?). PT это ж указатель... и передаваться будет указатель, который может быть намного меньше массива...

[volvo]

А так не тот же массив передастся? Ведь исользуется как VAR-параметр, т.е. сам массив

Сам массив (по значению) передается так:

procedure pr(ar: Arr);

При передаче через

procedure pr(var ar: Arr);
{ или }
procedure pr(const ar: Arr);

передается ссылка на массив, то есть, сам массив в стек не копируется...

[compiler]

volvo, спасибо..
зы то есть оптимизация нулевая?

[Client]

Знаю, что не в тему, но хочется полностью разобраться

Сам массив (по значению) передается так:

Чуть не так сказал...Да передается ссылка на массив

procedure pr(var ar: Arr);

если мы изменим в процедуре, то он измениться и основной программе (массив)

procedure pr(const ar: Arr);

а здесь? ведь передается тоже ссылка на массив, но он не изменится в основной при изменении в процедуре?

[volvo]

а здесь?

Не путай константную ссылку и просто ссылку... Здесь компилятор запрещает менять значения ar напрямую (обойти этот запрет можно, но это уже другая тема), и при попытке изменения выдает ошибку, т.е., значения ar доступны как бы "read-only"...

Сообщение отредактировано: volvo - 11.01.2008 22:11