home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / turbopas / qwik42.arc / STRS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-01  |  1.9 KB  |  60 lines
  1. { =========================================================================== }
  2. { Strs42.pas - accesses Str procedure for use as a function ver 4.2, 10-01-88 }
  3. {                                                                             }
  4. { Inline code keeps function from having to copy the string twice and thus    }
  5. { increasing speed.  Functions save code in the long run.                     }
  6. {  Copyright (C) 1988 James H. LeMay                                          }
  7. { =========================================================================== }
  8.  
  9. UNIT Strs;
  10.  
  11. INTERFACE
  12.  
  13. function StrL   (L: longint):                       string;
  14. function StrLW  (L: longint; Width: integer):       string;
  15. function StrR   (R: real):                          string;
  16. function StrRW  (R: real; Width: integer):          string;
  17. function StrRWD (R: real; Width,Decimals: integer): string;
  18.  
  19.  
  20. IMPLEMENTATION
  21.  
  22. function StrL; { (L: longint): string; }
  23. var  Result: ^string;
  24. begin
  25. Inline(                  { Typical code: }
  26.   $89/$EC/               { mov  sp,bp      ; Drop Result }
  27.   $16/                   { push ss         ; Result segment }
  28.   $FF/$76/$0A);          { push [bp+$0A]   ; Result offset ($08 for near) }
  29.   str (L,Result^);
  30. end;
  31.  
  32. function StrLW; { (L: longint; Width: integer): string; }
  33. var  Result: ^string;
  34. begin
  35.   Inline ($89/$EC/$16/$FF/$76/$0C);
  36.   str (L:Width,Result^);
  37. end;
  38.  
  39. function StrR; { (R: real): string; }
  40. var  Result: ^string;
  41. begin
  42.   Inline ($89/$EC/$16/$FF/$76/$0C);
  43.   str (R,Result^);
  44. end;
  45.  
  46. function StrRW; { (R: real; Width: integer): string; }
  47. var  Result: ^string;
  48. begin
  49.   Inline ($89/$EC/$16/$FF/$76/$0E);
  50.   str (R:Width,Result^);
  51. end;
  52.  
  53. function StrRWD; { (R: real; Width,Decimals: integer): string; }
  54. var  Result: ^string;
  55. begin
  56.   Inline ($89/$EC/$16/$FF/$76/$10);
  57.   str (R:Width:Decimals,Result^);
  58. end;
  59.  
  60. END.