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

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

Массив в функцию

inc(665) ©   (2002-06-04 11:36:00) 

Здравствуйте!
Подскажите прожалуйсто как передать массив в функцию...

вот пример того что мне надо:
..............
var
a:array[0..4,0..4] of byte;
i:integer;

function findsomething(b:array of byte):integer;
begin
..... {1 способ ?}
b:=a; {здесь естественно еррор вываливается}
{так как заталкать массив в функцию??}
.....
end;

begin
.........
i:=dosomethig(a) {2 способ ?}
end.

---

Mz_______   (2002-06-04 11:50:00) [1]

Ну ладно,.. может ему динамический массив лучше,.. ))

---

Mz_______   (2002-06-04 11:49:00) [2]


type
TMyArray = array of array of byte;

var
a:TMyArray;
i:Integer;

function findsomething(b:array of array of byte):integer;
begin
Result:=b[High(b)][High(b)];
end;

begin
SetLength(a,5);
for i:=0 to High(a) do
SetLength(a[i],5)
i:=findsomething(a);
end.



---

Song   (2002-06-04 11:40:00) [3]

Type Mas: array [0..4,0..4] of Byte;

Var a: Mas;

Function FindSomething(b:Mas):Ineteger;
Begin
...
End;

I:=FindSomething(a);

---

Наверх