var array

← →
race1 (2003-07-18 07:37) [0]

как в процедуре обработать переданный по ссылке массив? т.е. если написать так
procedure proc ( var x: Integer ); begin x := 2; end; proc ( i );
то i будет равно 2-ум. а как также передать массив и заполнять его в процедуре?

← →
Думкин (2003-07-18 07:47) [1]

Ввести такой тип и передавать по типу.

type TMyArray = array[1..2] of TMyType; procedure proc ( var b: TMyArray); begin b[Low(b)] := MyData1; b[High(b)] := MyData2 end; var a : TMyArray proc ( a );

Так и динамические можно.

А еще можно открытые массивы передавать:

procedure proc ( b: array of TMyType); begin b[Low(b)] := MyData1; b[High(b)] := MyData2 end;

Вроде не наврал сильно.

var array Найти похожие ветки