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.
    InsLine Insert an empty line at cursor position.
    ClrScr Clear current window.

    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.