[Back to POINTERS SWAG index]  [Back to Main SWAG index]  [Original]

{
AW>Hi all! how do i pass an array of pointers to a procedure? i know how to
AW>do it in C++, but is it been done in pascal?

Something like this :
}

Const
     MaxPointer = 20;

Type
    MyPointerArrayType = Array [1..MaxPointer] of Pointer;

Var
   MainPointerArray : MyPointerArrayType;

*Only give the pointer to the array to the procedure*
This method allows you to alter the original variable.

procedure ProcessPointers1 (Var LocalArray : MyPointerArrayType);

begin
     {Do something} 
end;

*make a copy of the array*
This method makes a copy of the array, and allows you to precess the array in 
the procedure.

Procedure ProcessPointers2 (LocalArray : MyPointerArrayType);

begin
     {Do something}
end;

begin {Main}
     MainPointerArray [1] := NIL;
     ProcessPointers1 (MainPointerArray);     
     ProcessPointers2 (MainPointerArray);
end.{Main}
        
What you must remember that you have to declare a type first and then refer to
this type when you declare a function or procedure.

[Back to POINTERS SWAG index]  [Back to Main SWAG index]  [Original]