Subj : Re: TP Code
To   : Sean Dennis
From : Art Johnston
Date : Mon Apr 22 2002 03:44 pm

Reply : Not needed

SD> 
SD> Could someone give me a good example on how to translate this line from 
SD> Virtual Pascal:
SD> 
SD> FilePath := ExtractFilePath(ParamStr(0));
SD> 
SD> ...into something that will work with Turbo Pascal 7?  I haven't worked 
with 
SD> TP enough to know how to translate it.
SD> 



VAR  StartupDir  : PathStr;
     Name        : NameStr;
     Ext         : ExtStr;
     p           : STRING;

BEGIN
     FSPLIT(PARAMSTR[0], StartupDir, Name, Ext );
     p := StartupDir;
 END;


Note: Untested, and I am sure it needs work. 0-;

---
he Abyss BBS -- WWIV v4.30 1:103/105@Fidonet --
 --- Home of WWIVMail/QWK ---
            
--- WWIVToss v.1.40 Registered 
 * Origin:  -*The Abyss Westminster, California USA*- (1:103/105.0)

.