Transferring Your Procedures and Functions into a Library Unit

Creating a Turbo Pascal Unit

• Firstly you have to create a .PAS file containing all the program code for your library.
• Secondly you must compile the .PAS file to create a .TPU machine code version of your library.
• Finally, you have to include your library's name in the uses list of your programs.

What a unit looks like

unit MyUnit;

interface

uses crt,...etc;

procedure StarGow(x,y: integer; s: string);                 {Procedure and function headers}
procedure StarLine(y: integer);
function   StopsToSpaces(s: string): string;
*	
*	
*	etc.

implementation

{--------------------------------------------------------------------------------------}
procedure StarGow(x,y: integer; s: string);                 {Procedure and function coding}
  begin
  gotoxy(x,y);
  clreol;
  gotoxy(x,y);
  write('*',s,'*');
  end; 
{---------------------------------------------------------------------------------------}
procedure StarLine(y: integer);
*	
*	
*	
*  ...etc.	
  end;  {End of last procedure or function}
{---------------------------------------------------------------------------------------}

end.   {End of unit}

To compile the unit

Compile / Destination

This will change the destination to disc (click on Compile on the menu bar to check that this has happened). If you then choose Compile / Compile, the .TPU file will be created. This is the machine code version of your library.

To use the unit

uses crt, dos, MyUnit;