динамический масив и как с ним быть

← →
Lena19 (2004-04-08 23:29) [0]

привет всем
подкажите как объявить процедуру чтоб в нее передать динамический масив
procedure my(var bufer:array of char;sizebufer:integer);
компилятор отрабатывает тока буфер пуст .

← →
Yanis © (2004-04-08 23:36) [1]

Взято и фака. К сожалению Delphi под рукой нету(только что винду поставил :))
const MaxBooleans = (High(Cardinal) - $F) div sizeof(boolean); type TBoolArray = array[1..MaxBooleans] of boolean; PBoolArray = ^TBoolArray; var B: PBoolArray; N: integer; begin N := 63579; {= получение памяти под динамический массив.. =} GetMem(B, N * sizeof(boolean)); {= работа с массивом... =} B^[3477] := FALSE; {= возвращение памяти в кучу =} {$IFDEF VER80} FreeMem(B, N * sizeof(boolean)); {$ELSE} FreeMem(B); {$ENDIF} end.

← →
Lena19 (2004-04-09 00:05) [2]

что то я тут ни одного объявления процедуры не увидела
а хотелось бы :(

← →
Yanis © (2004-04-09 00:29) [3]

А что с Buffer"ом надо делать?

← →
Lena19 (2004-04-09 00:36) [4]

его надо передать в процедуру для дальнейшей обработки
тока я не знаю как в етом случае объявить процедуру

← →
Gero © (2004-04-09 00:38) [5]

my([Element1, Element2, ..., ElementN], BufferSize);

← →
Fay © (2004-04-09 00:39) [6]

type
TJopa = array of char;

var
j : TJopa;

procedure KyKy(var B : TJopa; sz : Integer);
begin
.....
end;

procedure Bububu;
begin
KyKy(j, 0);
end;

← →
lena19 (2004-04-09 11:43) [7]

To fay спасбочки приду домой проверю а то на наладоннике это не оченьто получается

← →
Anatoly Podgoretsky © (2004-04-09 11:47) [8]

procedure KyKy(B : TJopa; sz : Integer);

Если просто передавать и менять значения массива (но не количество элементов), то надо без var.

Если надо передавать и в процедуре добавлять/удалять элементы с возвратом результата, то нужно var.

LOL

Ну и примерчики kyky Tjopa
LOL

procedure KyKy(var B : TJopa; sz : Integer);
begin
if (High(b)+1) <> sz then
ShowMessage("Интересные дела...");
end;

динамический масив и как с ним быть Найти похожие ветки