home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / pascal / wndw70 / strs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-23  |  2.0 KB  |  69 lines
  1. { ========================================================================== }
  2. { Strs.pas - accesses Str procedure for use as a          ver 7.0c, 09-23-93 }
  3. {            function.                                                       }
  4. {                                                                            }
  5. { Directly addressing the function result keeps routine from having to copy  }
  6. { the string twice and thus increasing speed.  Functions save code in the    }
  7. { long run.  In addition, code can be removed as is from this unit and       }
  8. { placed in a main program if near calls and returns are preferred.          }
  9. {                                                                            }
  10. {  Copyright (C) 1993 James H. LeMay, All rights reserved.                   }
  11. { ========================================================================== }
  12.  
  13. UNIT Strs;
  14.  
  15. INTERFACE
  16.  
  17. function StrL   (L: longint):                       string;
  18. function StrLF  (L: longint; Field: integer):       string;
  19. function StrR   (R: real):                          string;
  20. function StrRF  (R: real; Field: integer):          string;
  21. function StrRFD (R: real; Field,Decimals: integer): string;
  22.  
  23.  
  24. IMPLEMENTATION
  25.  
  26. type
  27.   tLStkRec =
  28.     record
  29.       StkLong: longint;
  30.       pResult: ^string;
  31.     end;
  32.   tRStkRec =
  33.     record
  34.       StkReal: real;
  35.       pResult: ^string;
  36.     end;
  37.  
  38. function StrL (L: longint): string;
  39. var  StkRec: tLStkRec absolute L;
  40. begin
  41.   str (L,StkRec.pResult^);
  42. end;
  43.  
  44. function StrLF (L: longint; Field: integer): string;
  45. var  StkRec: tLStkRec absolute L;
  46. begin
  47.   str (L:Field,StkRec.pResult^);
  48. end;
  49.  
  50. function StrR (R: real): string;
  51. var  StkRec: tRStkRec absolute R;
  52. begin
  53.   str (R,StkRec.pResult^);
  54. end;
  55.  
  56. function StrRF (R: real; Field: integer): string;
  57. var  StkRec: tRStkRec absolute R;
  58. begin
  59.   str (R:Field,StkRec.pResult^);
  60. end;
  61.  
  62. function StrRFD (R: real; Field,Decimals: integer): string;
  63. var  StkRec: tRStkRec absolute R;
  64. begin
  65.   str (R:Field:Decimals,StkRec.pResult^);
  66. end;
  67.  
  68. END.
  69.