Delete line at cursor position.
Source position: crth.inc line 89
procedure DelLine; |
DelLine removes the current line. Lines following the current line are scrolled 1 line up, and an empty line is inserted at the bottom of the current window. The cursor doesn't move.
None.
|
Clear from cursor position till end of line. |
|
|
Insert an empty line at cursor position. |
|
|
Clear current window. |
Program Example10; uses Crt; { Program to demonstrate the InsLine function. } begin ClrScr; WriteLn; WriteLn('Line 1'); WriteLn('Line 2'); WriteLn('Line 2'); WriteLn('Line 3'); WriteLn; WriteLn('Oops, Line 2 is listed twice,', ' let''s delete the line at the cursor postion'); GotoXY(1,3); ReadKey; DelLine; GotoXY(1,10); end.