Скачать: CL | DM;

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

← →
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);

---

← →
Тимохов ©   (2004-04-09 12:08) [9]

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

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

---

← →
Defunct ©   (2004-04-09 12:09) [10]

LOL

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

---

← →
Fay ©   (2004-04-09 14:11) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c