Skip to content

DelLine

Delete line at cursor position.

Declaration

Source position: crth.inc line 89

  procedure DelLine;

Description

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.

Errors

None.

See also

Name Description
ClrEol Clear from cursor position till end of line.
ClrScr Clear current window.
InsLine Insert an empty line at cursor position

Example

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.