[ Voltar ] [ Avançar ]

Objetivo:
Apaga a linha contendo o cursor.

Veja também:

InsLine; Window

Exemplo:

Uses CRT;

Begin

   Window(1,10,60,20);
   GotoXY(1,1);
   TextColor(Black);
   TextBackground(White);
   ClrScr;

   WriteLn('Linha 1');
   WriteLn('Linha 2');
   WriteLn('Linha 3');
   WriteLn;

   Write('Pressione <Enter> para apagar a linha 2');

   ReadLn;

   GoToXY(1,2); 

   DelLine;

   WriteLn;
   WriteLn;
   ClrEol;
   Write('Pressione <Enter> para sair');

   ReadLn;

   TextBackGround(Black);
   TextColor(White);
   Window(1,1,80,25);
   Clrscr;       

End.

[ Voltar ] [ Avançar ]