Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Вниз

Массив в функцию   Найти похожие ветки 

← →
inc(665)   (2002-06-04 11:36) [0]

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

вот пример того что мне надо:
..............
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.

---

← →
Song   (2002-06-04 11:40) [1]

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

Var a: Mas;

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

I:=FindSomething(a);

---

← →
Mz_______   (2002-06-04 11:49) [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.



---

← →
Mz_______   (2002-06-04 11:50) [3]

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

---

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

Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c