home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
tptools.zip
/
ALLINST.ZIP
/
ESCSEQ.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-12-21
|
885b
|
39 lines
{ ESCSEQ.PAS
Editor Toolbox 4.0
Copyright (c) 1985, 87 by Borland International, Inc. }
{$I-}
{$R-}
{$S-}
{$V-}
{$D-}
unit EscSeq;
{-Return a text name for an IBM extended keystroke sequence}
interface
function EscapeSequence(Ch : Char) : string;
{-Return the text name corresponding to scan code ch}
implementation
{$L ESCSEQ}
function GetEscapeSequence(Ch : Char) : Pointer; external;
{-Return a pointer to the text string}
function EscapeSequence(Ch : Char) : string;
{-Return the text name corresponding to scan code ch}
type
String10 = string[10];
var
P : ^String10;
begin {EscapeSequence}
P := GetEscapeSequence(Ch);
EscapeSequence := '<'+P^+'>';
end; {EscapeSequence}
end.