home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / ITPSEP90.ZIP / EDITDEMO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1990-09-04  |  503 b   |  23 lines
  1. PROGRAM EditDemo;
  2.  
  3. {-------------------------------------------------
  4. -  Show off example of global object use         -
  5. -------------------------------------------------}
  6.  
  7. USES Crt, EditObj;
  8.  
  9. VAR
  10.    Editor: LineEdit;           {Instantiation of LineEdit OBJECT}
  11.    ResultStr: String;
  12. BEGIN
  13.    ClrScr;
  14.    WITH Editor DO
  15.    BEGIN
  16.       InitEdit( 1, 10, 'Edit this sample line');
  17.       ResultStr := GetLine;
  18.       GotoXY( 1, 15 );
  19.       WriteLn( ResultStr );
  20.    END;
  21.    ReadLn;
  22. END.
  23.