| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

динамический массив в кач-ве параметра функции/процедуры [D7, WinXP]

DeScriptor ©   (2004-06-27 01:18:00) 

Собственно говоря, я понял, что не знаю, как реализовать сабж!!! =( Т.е. я хочу написать функцию, в которую в качестве параметра передается динамический массив. Делаю так:

function AnyFunction (AnyData: array of byte):integer;

и компилятор это проглатывает, но когда я передаю в такую функцию динамический массив, мне говорят, что статический и динамический массивы несовместимы! =( Что делать?

---

begin...end   (2004-06-28 14:28:00) [1]

> [9] PVOzerski ©   (28.06.04 14:24)

Ну да я понимаю, но почему автор сказал, что у него ошибка какая-то возникает? Ведь он, как я понял, писал то же самое, что и я в [8].
Код в [8] рабочий?

---

PVOzerski   (2004-06-28 14:24:00) [2]

Просто открытый и динамический массив - это разные вещи, а синтаксис - похож.

---

begin...end   (2004-06-28 14:20:00) [3]

> DeScriptor   (27.06.04 01:18)


> но когда я передаю в такую функцию динамический массив,
> мне говорят, что статический и динамический массивы несовместимы

Чегой-то я не понял. Открытые массивы уже отменили?

var
 Data: array of Byte;

function AnyFunction(AnyData: array of Byte): Integer;
begin
  ...
end;

begin
 ... := AnyFunction(Data);
end.

?

---

DeScriptor   (2004-06-28 13:37:00) [4]

Огромное вам спасибо!!! =) Действительно - помогло!!! Я даже смутно начал вспоминать, что когда-то так и поступал!

---

Mim1   (2004-06-27 01:28:00) [5]

Бассейн. Малыши купаются.
Мальчик1: Давайте займемся синхронным плаваньем
M2: А это как?
М1: Это когда все все делают одновременно
М2: А я уже все сделал

---

GuAV   (2004-06-27 01:28:00) [6]

...и сплю. очепятки на каждом шагу. пойду ка я спать...

---

GuAV   (2004-06-27 01:22:00) [7]

Mim1 ©   (27.06.04 01:21) [3]

Да, я заню, что я тормможу :)

---

Mim1   (2004-06-27 01:21:00) [8]

> [2] GuAV ©   (27.06.04 01:20)


:)

---

Mim1   (2004-06-27 01:20:00) [9]

Попробуйте так.
type myarr=array of byte;

function AnyFunction (AnyData: myarr):integer;

---

GuAV   (2004-06-27 01:20:00) [10]

type
 TAnyData: array of byte;

function AnyFunction (AnyData: TAnyData):integer;

---

Наверх