Function, Procedure - аргумент Array?, как передать в качестве аргумента массив Опции

[Флогримм]

Как процедуре или функции передать в качестве аргумента массив?

[Digitalator]

На скока мне известно, функци может возвратить указатель на динамическую переменную типа массив, сформированную ей же при помощи new. Просто потом нужно будет освободить память самостоятельно, чтоб не накапливался мусор.

Код

type TArr:array[1..10] of integer;
       TPArr: ^TArr;
function myfunc:TPArr;
        var temp:TPArr;
        begin
        new(temp);
        temp^[1]:=999;
        myfunc:=temp;
        end;

...

a:=myfunc;
b:=a^[1]; //999
dispose(a);

Проверьте, кому не лень


А вообще все это фигня, и без этого всегда можно обойтись, да и вообще зачем функции возвращать массивы? для чего это может быть реально нужно?

Сообщение отредактировано: Digitalator - 18.11.2004 0:37