[ Voltar ] [ Avançar ]

Objetivo:
Insere uma linha vazia na posição atual do cursor.

Veja também:

DelLine; 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;

   Write('Pressione <Enter> para inserir uma linha');

   ReadLn;

   GoToXY(1,2); 

   InsLine;

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

   ReadLn;

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

End.

[ Voltar ] [ Avançar ]