🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.borland
Article #606

Re: Converting from PAS to TPU

#606
From: Jens Gesing
Date: Tue, 07 Dec 1999 00:00
34 lines
1953 bytes
Hi!

Units are build like this:

UNIT Name;                    { Name is your name of the unit }

INTERFACE                    { here you have to declare the
procedures/functions you would like to use in other programs }
PROCEDURE My1;         { Declaration of your procedure My1 }
...

IMPLEMENTATION        { here is the part where you put your commands of your
procedures }

PROCEDURE My1;            { The commands of procedure My1 }
    BEGIN;
        WRITELN('This is only a test!');
    END;

END.

Now you can use the procedure My1 in every of your programs. Remember that
the unit has to be implemented in your program (using Uses, for example:
Uses Name }

BTW: Do not cross-post.

CU
Jens

--
[ HOMEPAGE: http://home.t-online.de/home/jens.gesing/index.htm ]
[ PROGRAMMING-DO-IT-YOURSELF: http://members.xoom.com/goldman47/index.htm ]
[ EMAIL: jensi_man@gmx.de ]�
Technical Details
Message-ID: <82jqki$9ib$1@news05.btx.dtag.de>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <384cd1e5.0@news1.mweb.co.za>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: fd1d1,c748aef2b7a1e510
X-Google-Attributes: gidfd1d1,public
X-Google-Thread: 102601,c748aef2b7a1e510
X-Google-Attributes: gid102601,public
X-Google-Thread: 111659,c748aef2b7a1e510
X-Google-Attributes: gid111659,public
X-Google-Thread: 10261c,c748aef2b7a1e510
X-Google-Attributes: gid10261c,public
From: "Jens Gesing" <jensi_man@gmx.de>
Subject: Re: Converting from PAS to TPU
Date: 1999/12/07
Message-ID: <82jqki$9ib$1@news05.btx.dtag.de>
X-Deja-AN: 557843590
Content-Transfer-Encoding: 8bit
References: <384cd1e5.0@news1.mweb.co.za>
X-Sender: 320086862283-0001@t-dialin.net
X-Priority: 3
Content-Type: text/plain; charset=ISO-8859-1
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
X-Complaints-To: abuse@t-online.de
X-Trace: news05.btx.dtag.de 944598482 9803 320086862283-0001 991207 20:28:02
Organization: T-Online
X-MSMail-Priority: Normal
Mime-Version: 1.0
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,ctdl.lang.pascal,de.comp.lang.pascal