home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w048 / 2.ddi / MSSRC.ARC / ESCSEQ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-21  |  882 b   |  39 lines
  1. {                            ESCSEQ.PAS
  2.                                MS 4.0
  3.                 Copyright (c) 1985, 87 by Borland International, Inc.         }
  4.  
  5. {$I-}
  6. {$R-}
  7. {$S-}
  8. {$V-}
  9. {$D-}
  10.  
  11. unit EscSeq;
  12.   {-Return a text name for an IBM extended keystroke sequence}
  13.  
  14. interface
  15.  
  16. function EscapeSequence(Ch : Char) : string;
  17.   {-Return the text name corresponding to scan code ch}
  18.  
  19. implementation
  20.  
  21.   {$L ESCSEQ}
  22.  
  23.   function GetEscapeSequence(Ch : Char) : Pointer; external;
  24.   {-Return a pointer to the text string}
  25.  
  26.   function EscapeSequence(Ch : Char) : string;
  27.     {-Return the text name corresponding to scan code ch}
  28.   type
  29.     String10 = string[10];
  30.   var
  31.     P : ^String10;
  32.  
  33.   begin                      {EscapeSequence}
  34.     P := GetEscapeSequence(Ch);
  35.     EscapeSequence := '<'+P^+'>';
  36.   end;                       {EscapeSequence}
  37.  
  38. end.
  39.