Можно ли считать открытый массив динамическим массивом предствляющим собой параметр подпрограммы?
__________________________________________________________
Что такое конструктор массива и для чего он нужен?

Это сообщение отредактировал(а) Scrip - 24.5.2004, 14:42

Мне вопрос непонятен, поясни, что такое открытый массив?..
Добавлено @ 17:35
Что ты имеешь в виду под конструктором массива? SetLength?

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

Если все так, то связи в первом предложении не вижу(не обижайся, может не так понял)
А конструктор-процедура создания.

qwe:array[1..10] of integer; например

Открытый массив - массив неизвестного размера. Пример:

Код

procedure Proc1(var m : array of integer); var i : integer; begin  for i := Low(m) to High(m) do m[i] := i; // можно вместо Low(m) писать просто 0... end;

Но это не динамический массив. Ответ на вопрос - нет.
К примеру, я не смогу в Proc1 написать SetLength(m, 10);
Сколько выделил памяти под m, столько и могу использовать...
Можно передать дин. массив в качестве открытого массива, также как и статический:

Код

var  stat : array [4..11] of integer;  dyn : array of integer; begin  SetLength(dyn, 20);  Proc1(dyn);  Proc1(stat); end;

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

ЗЫ: Насчет статических массивов: можно схитрить насчет длины. Например, для приведенной выше процедуры можно сделать так:

Код

type PseudoP1 = procedure (Adr : pointer; Len : cardinal); var  stat : array [4..11] of integer; begin  asm push ebp end;  PseudoP1(@Proc1)(@stat, 5); end;

В результате, хоть и размер статического массива = 8, обработке в Proc1 пойдут только первый 6 (5+1=6) элементов... Ну это так, мало ли кому будет лень передавать еще один параметр для указания размера массива...

Цитата

Что такое конструктор массива и для чего он нужен?

Пример:

Код

procedure Proc1(m : array of integer); var  i : integer; begin  for i := Low(m) to High(m) do    Form1.ListBox1.Items.Add(IntToStr(m[i])); end;

Тут m - открытый массив. Пример вызова:

Код

var z : array [0..5] of integer; begin ...  Proc1(z); end;

Пример использования конструктора:

Код

var  a,b,c,d : integer; begin  ...  Proc1([1,6,4,7,3,4,a,b,c,d]); end;

Думаю, из примера видно что конструктор налету собирает массив.

Цитата(p0s0l @ 25.5.2004, 01:23)

Код var  stat : array [4..11] of integer;  dyn : array of integer; begin  SetLength(dyn, 20);  Proc1(dyn);  Proc1(stat); end; При передаче дин. массива передается указатель на первый элемент данных, и длина дин. массива (которая не известна на этапе компиляции). При передаче стат. массива в качестве открытого массива длина массива сразу известна на этапе компиляции...

p0s0l, чего-то не понял.... в приведенном тобой коде, в процедуру передается динамический массив без параметра его длины... А дальше ты пишешь, что надо передавать длину массива. И так ли обязательно передавать длину массива? У меня написана длл в которой реализованы такие функции:

Код

function CheckAnswer (AAnswer:array of byte):boolean;stdcall; var TmpBuf:array of byte; begin  if AAnswer[0]<>1 then  begin    Result:=false;    exit;  end;  SetLength(TmpBuf,4);  Move(AAnswer,Pointer(TmpBuf)^,4);  if not CheckCS(TmpBuf) then  begin    Result:=false;    exit;  end;  if not CheckCS(AAnswer) then   begin    Result:=false;    exit;  end;  Result:=true; end; и внутренняя функция длл function CheckCS(Buff:array of byte):boolean;stdcall;//контрольная сумма, не экспортируется var i,CS:integer; begin  CS:=0;  For i:=0 to SizeOf(Buff)-2 do    CS:=CS+Buff[i];  While CS>255 do    dec(CS,255);  Result:=(CS=Buff[SizeOf(Buff)-1]); end;

Вызывая первую функцию я передаю ей динамический массив, в CheckCS передаю и динамический массив и открытый массив - SizeOf отлично справляется (как видно нет параметра передающего длину массива). Твой ответ заставил меня задуматься, а правильно ли я это реализовал? Поясни, пожалуйста.
PS написано несколько программ с использованием этой длл, и все нормально работает.

Я неправильно выразился. И имел в виду, что длина массива передается неявным параметром, что я потом и показал с помощью "псевдо"-функции...

Цитата

Пример использования конструктора: Код var a,b,c,d : integer; begin ... Proc1([1,6,4,7,3,4,a,b,c,d]); end; Думаю, из примера видно что конструктор налету собирает массив.

Непонятно. Что значит конструктор налету собирает массив? Какой массив? Ведь при выполнении процедуры Proc1 не описано каким фактическим параметром заменить формальный параметр m.

Это сообщение отредактировал(а) Scrip - 25.5.2004, 13:44

p0s0l, спасибо. С асмом у меня туговато.

Цитата

Непонятно. Что значит конструктор налету собирает массив? Какой массив?

Какой массив ? Вот такой: [1,6,4,7,3,4,a,b,c,d] - в квадратных скобках друг за другом перечислены элементы передаваемого массива...
Что значит "Налету собирает" ? Конструктор создает в стеке временный массив из перечисленных элементов, и передает указатель на него и длину (но это мы не видим), после завершения вызванной процедуры массива уже не будет... Конструктором можно пользоваться только для передачи параметров. И они не могут передаваться в качестве var-параметров (понятно почему)...
Вот два абсолютно эквивалентных примера (даже код в результате генерится одинаковый):

Код

procedure Proc1(m : array of integer); begin   ... end; var m : array [0..3] of integer; begin   m[0] := 0;   m[1] := 1;   m[2] := 2;   m[3] := 3;   Proc1(m); end;

Код

procedure Proc1(m : array of integer); begin   ... end; begin   Proc1([0,1,2,3]); end;

Цитата

К примеру, я не смогу в Proc1 написать SetLength(m, 10); Сколько выделил памяти под m, столько и могу использовать...

Если "Открытый массив - массив неизвестного размера", то под m память вообще не выделена. Так? Или ... нет... не так
Добавлено @ 14:23
Все, с конструктором разобрался!

Это сообщение отредактировал(а) Scrip - 25.5.2004, 14:23

Цитата

Если "Открытый массив - массив неизвестного размера", то под m память вообще не выделена. Так? Или ... нет... не так

Выделена. Процедура Proc1 на этапе компиляции не знает размер массива. При выполнении же программы она в качестве дополнительного параметра (которого мы не видим) получает размер массива...

Цитата(p0s0l @ 25.5.2004, 15:24)

При выполнении же программы она в качестве дополнительного параметра (которого мы не видим) получает размер массива...

Разве?.. Мне казалось, что получив указатель (только его)... Она уже сама определяет размер массива... Я не отрицаю того, что этот размер хранится в программе, но по-моему в процедуру он в заголовке не передается...

Kesh, если я тебе дам только указатель на ячейку памяти, как ты узнаешь сколько массив занимает ? Он может и 10 байт занимать, а может 10 мб...
Если я в var'е написал:
m : array [0..31] of byte;
То m займет ровно 32 байта. В памяти нигде не хранится размер этого массива...