home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / misc.swg / 0101_Procedure Calls.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  943 b   |  39 lines
  1. {
  2.   Coded By Frank Diacheysn Of Gemini Software
  3.  
  4.   PROCEDURE CALLFUNCTION
  5.  
  6.   Input......: UserRoutine = Pointer To The Routine To Call
  7.              : NA          = String To Pass To <UserRoutine>
  8.              :
  9.              :
  10.              :
  11.  
  12.   Output.....: None
  13.              :
  14.              :
  15.              :
  16.              :
  17.  
  18.   Example....: PROCEDURE CALLME(Str:STRING);
  19.              : BEGIN
  20.              :   WriteLn(Str);
  21.              : END;
  22.              :
  23.              : MyPointer := @CallMe;
  24.              : CallFunction(MyPointer,'Calling You!');
  25.  
  26.   Description: Used To Call A Function Or A Procedure, Mainly A
  27.              : Procedure, Since Output Of The Function Can't Be
  28.              : Returned.
  29.              :
  30.              :
  31.  
  32. }
  33. PROCEDURE CALLFUNCTION(UserRoutine:POINTER; NA:STRING);
  34.   PROCEDURE InsideCallFunction(NA:STRING);
  35.   INLINE( $FF/$5E/<UserRoutine );
  36. BEGIN
  37.   InsideCallFunction(NA);
  38. END;
  39.