home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / tspas18.arj / TSUNTF.INT < prev    next >
Text File  |  1990-02-24  |  2KB  |  65 lines
  1. {$B-,F-,I+,N-,V+}
  2. {$S+}
  3. {$R-}
  4. {$D-}
  5.  
  6. (*
  7. Timo Salmi UNiT F
  8. A Turbo Pascal unit for readln with string editing
  9. All rights reserved 19-Aug-89
  10. Updated 4-Sep-89
  11. Updated 24-Sep-89
  12.  
  13. TSUNTF first appears in release TSPAS13 of my Turbo Pascal units package.
  14.  
  15. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  16. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  17. ANY other usage, contact the author.
  18.  
  19. The units are under development. Comments and contacts are solicited. If
  20. you have any questions, please do not hesitate to use electronic mail for
  21. communication.
  22. InterNet address: ts@chyde.uwasa.fi         (preferred)
  23. Funet address:    GADO::SALMI
  24. Bitnet address:   SALMI@FINFUN
  25. FidoNet address:  2:515/1 (Micro Maniacs Opus, To: Timo Salmi)
  26.  
  27. The author shall not be liable to the user for any direct, indirect or
  28. consequential loss arising from the use of, or inability to use, any unit,
  29. program or file howsoever caused. No warranty is given that the units and
  30. programs will work under all circumstances.
  31.  
  32. Timo Salmi
  33. Professor of Accounting and Business Finance
  34. School of Business Studies, University of Vaasa
  35. P.O. BOX 297, SF-65101 Vaasa, Finland
  36. *)
  37.  
  38. unit TSUNTF;
  39.  
  40. (* ======================================================================= *)
  41.                           interface
  42. (* ======================================================================= *)
  43.  
  44. uses Dos,
  45.      Crt;
  46.  
  47. (* An enhanced readln with the possibility of editing input strings
  48.    using insert mode
  49.      The functional edit keys are
  50.        BackSpace
  51.        Del
  52.        CursorLeft
  53.        CursorRight
  54.        Home
  55.        End
  56.        Esc *)
  57. procedure EDRDLN (prompt : string; var InputString : string);
  58.  
  59. (* This version gives the possibility of recalling a string by pressing
  60.    the CursorUp key. Insert key is also functional *)
  61. procedure EDREADLN (prompt          : string;
  62.                     RecallString    : string;
  63.                     var InputString : string);
  64.  
  65.