Subj : TP Code
To   : All
From : Neil Santos
Date : Tue Apr 23 2002 05:37 pm

Captain's Log, Star Date 04-22-02 22:44 :: ART JOHNSTON said...

 AJ> Reply : Not needed

he did say a reply's not needed, so i'm addressing this to `All' :)

 AJ> VAR  StartupDir  : PathStr;
 AJ>      Name        : NameStr;
 AJ>      Ext         : ExtStr;
 AJ>      p           : STRING;
 AJ> BEGIN
 AJ>      FSPLIT(PARAMSTR[0], StartupDir, Name, Ext );
 AJ>      p := StartupDir;
 AJ>  END;
 AJ> Note: Untested, and I am sure it needs work. 0-;

looks just right to me...  but not quite.  also, maybe making it a function
would be a bit better?  just so nobody can say i didn't try to help, i'll
do it :b

=== cut here ==================
uses dos;

function return_dir(n : pathstr) : dirstr;
var sdir, p   : dirstr;
    name      : namestr;
    ext       : extstr;

    begin
         p := fsplit(n, sdir, name, ext);
         return_dir := p;
    end;
=== cut here ==================

i've looked up the fsplit procedure in Turbo Pascal's help file.  i'm still
a bit rusty tho, so i can't guarantee anything.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/IT/TW/S d+(-) s+: a--- C++++ ULC++>+++ P++ L-(++) E- W+++(--) N--
!o K- w++(---) O- !M-- V? PS+(+++) PE-- Y-- PGP-- t*(+++) 5-- X- R*
tv+ b++>+++ DI+>+++ D--- G e>+++++ h!>++ r+ y?(**)
------END GEEK CODE BLOCK------

.... God is Real, unless explicitly declared as Integer.
--- MultiMail/Win32 v0.43
 * Origin: The File Bank BBS! Makati. Philippines +63-2-896-3116 (6:751/321)

.