How do you pass procedures as parameters?  I have tried the folowing
and it has not worked:

procedure CheckArray(TheArray: ArrayType; procedure Checker(var Entry:
ArrayEntryType));
var
   Counter : integer;
begin
   for Counter := 1 to ArraySize do begin
      Checker(TheArray[Counter]);
   end;
end;

I get an 'identifier expected error at the second procedure in the
procedure header?  What am I doing wrong.

Thanks for you help in advance.

Type
  CheckerProc = Procedure(Var Entry: ArrayEntryType);
Procedure CheckArray(TheArray: ArrayType; Checker: CheckerProc);
  Var
    Counter: Integer
  Begin
  For Counter := 1 To ArraySize Do
    Checker(TheArray[Counter]);
  End;

In truth, the parameters named in the type declaration are of no
importance; "Procedure" is all that needs to be stated. It is your
responsibility to be sure that Checker is the correct procedure with its
own correct parameters.

     I could be wrong about this, but it appears that the format that Michael Goyetche used is, in fact,
the method that adheres to (or perhaps near to) the Pascal Standard.  I suspect that the second format
that Alan Evans describes is the Borland "variant" on the Pascal Standard.

     Some Pascal implementations will, in fact, check the parameters of the declared Procedure (or
Function) "variable".  I have found that this layer of compiler-enforced "error checking" (part of
strong typing) has saved me from making many of the silly mistakes that used to plague my Fortran code.

this should be working.

"Alan M. Evans" <A.Michael.Ev...@airmail.net> wrote: