home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
insidetp
/
1990_09
/
editdemo.pas
next >
Wrap
Pascal/Delphi Source File
|
1990-09-04
|
503b
|
23 lines
PROGRAM EditDemo;
{-------------------------------------------------
- Show off example of global object use -
-------------------------------------------------}
USES Crt, EditObj;
VAR
Editor: LineEdit; {Instantiation of LineEdit OBJECT}
ResultStr: String;
BEGIN
ClrScr;
WITH Editor DO
BEGIN
InitEdit( 1, 10, 'Edit this sample line');
ResultStr := GetLine;
GotoXY( 1, 15 );
WriteLn( ResultStr );
END;
ReadLn;
END.