home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / xphy2201.arj / XPHYTOOL.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-08-28  |  866 b   |  55 lines
  1. unit xphytool;
  2.  
  3. interface
  4.  
  5. uses dos;
  6.  
  7. function fstr(x:word):string;
  8. function getprgpath:string;
  9. function exist(s:string):boolean;
  10. function back(s:string):string;
  11.  
  12. implementation
  13.  
  14.  
  15. function fstr(x:word):string;
  16. var s:string[5];
  17. begin
  18.   str(x,s);
  19.   fstr:=s;
  20. end;
  21.  
  22.  
  23. function getprgpath:string;
  24.  
  25. var
  26.   dir:dirstr;
  27.   name:namestr;
  28.   ext:extstr;
  29.   exename:pathstr;
  30.  
  31. begin
  32.   if lo(dosversion) >= 3 then exename := paramstr(0) else
  33.   exename:= fsearch('zm.exe', getenv('PATH'));
  34.   exename:=fexpand(exename);
  35.   fsplit(exename, dir, name, ext);
  36.   if dir[length(dir)] = '\' then dec(dir[0]);
  37.   getprgpath := dir+'\';
  38. end;
  39.  
  40.  
  41. function exist(s:string):boolean;
  42. begin
  43.   exist:=fsearch(s,'')<>'';
  44. end;
  45.  
  46.  
  47. function back(s:string):string;
  48. begin
  49.   back:=s;
  50.   if (length(s)>0) and (s[length(s)]<>'\') then
  51.     back:=s+'\'
  52. end;
  53.  
  54.  
  55. end.