FORWARD command does'nt seem to work! if there is no other way to do it
then nevermind.

In article <01bd03e1$7f8b4340$8b068bcd@computer>,

Unit Types;   {the top most unit, called by all other units}

interface
Type AnyProcType = Procedure(abc:Integer; Var def:anytype);

implementation

Var AnyProc : AnyProcType;

Procedure DummyProc(abc:Integer; Var def:anytype); Far;
Begin  {do nothing}
End;

----
begin {Types initialisation}
   AnyProc := DummyProc; (* FOR SECURITY *)
end.
------------------------
Unit User2Unit;
interface
uses CRT,DOS,Types ... ;
implementation
Procedure LAnyProc(abc:Integer;Var def:anytype); Far;
Begin
   do any thing
End;
begin  {User2Unit initialisation}
   AnyProc := LAnyProc;
end.
This rather dirty trick is sometimes necessary, when idle procedures
or other hardware related jobs must be done, where otherwise the
units became circularly referenced.

BTW, you need to quote a little of the relevant parts of the
previous post so we can have a little context.  When you don't
quote and don't tie your response to the thread, it's like
entering into a group and resuming last week's conversation.

    ...red

In article <34a447f7.97051...@news.southeast.net>,

Do you also leave the parameters out of the procedures and functions
that already are defined in the interface section of the unit? If not
then why not, as those analogous to procedures defined with forward.

The only reason I can see why I've never listed the formal
parameters with the body of a forward declared procedure is
because the fine manuals (both TP 1.0 and 3.0) state:

 Forward References

   A subprogram is forward declared by specifying its
   heading separately from the block.  This separate
   subprogram heading is exactly as the normal heading,
   except that it is terminated by the reserved word
   forward.  The block follows later within the same
   declaration part.  Notice that the block is initiated
   by a copy of the heading, specifying only the name
   and no parameters, types, etc.

   Example:
     program Catch22;
     Var X: Integer;

     function Up(Var I: Integer): Integer; forward;

     function Down(Var I: Integer) : Integer;
     begin
        I := I div 2; Writeln(I);
        if I <> 1 then I := Up(I);
     end;

     function Up;
     begin
        ...

Seems I took the manual on blind faith, and since it worked, and
possibly because it's rarely used, I never took the opportunity
to experiment.  Can't remember, but even if I used forward after
TP 3.0, it never appeared on a list of differences between
versions, so I would never have changed.

Guess I'm just a persistent old goat.  :-)

    ...red