home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_INT.ZIP / SPX_FNC.INT < prev    next >
Text File  |  1993-05-04  |  1KB  |  36 lines
  1. Unit SPX_FNC;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. Interface
  6.  
  7. function sgn(h:integer):integer;
  8. function strint(s:string):longint;
  9. function intstr(l:longint):string;
  10. function ups(s:string):string;
  11. function st(h:longint):string;
  12. function compare(s1,s2:string):boolean;
  13. function dtcmp(var s1,s2;size:word):boolean;
  14. function cmp(var s1,s2;size:word):boolean;
  15. function lz(i,w:longint):string;
  16. function vl(h:string):longint;
  17. function spaces(h:integer):string;
  18. function repstr(h:integer;ch:char):string;
  19. procedure ifix(var a:integer;min,max:integer);
  20. procedure rfix(var a:real;min,max:real);
  21. function anything(s:string):boolean;
  22. function exist(f:string):boolean;
  23. function errmsg(n:integer):string;
  24. function turboerror(errorcode:integer) : string;
  25. procedure funpad(var s:string);
  26. procedure unpad(var s:string);
  27. procedure munpad(var s:string;b:byte);
  28. function fpad(s:string;h:integer):string;
  29. procedure pad(var s:string;h:integer);
  30. procedure fix(var s:string;h:string);
  31. procedure fixh(var s:string);
  32. function range(x,y,x1,y1,x2,y2:integer) : boolean;
  33. function rrange(x,y,x1,y1,x2,y2:real) : boolean;
  34. function between(x,x1,x2:longint):boolean;
  35.  
  36.