Clear from cursor position till end of line.
Source position: crth.inc line 87
procedure ClrEol; |
ClrEol clears the current line, starting from the cursor position, to the end of the window. The cursor doesn't move
None.
|
Delete line at cursor position. |
|
|
Insert an empty line at cursor position. |
|
|
Clear current window. |
Program Example9; uses Crt; { Program to demonstrate the ClrEol function. } var I,J : integer; begin For I:=1 to 15 do For J:=1 to 80 do begin gotoxy(j,i); Write(j mod 10); end; Window(5,5,75,12); Write('This line will be cleared from', ' here till the right of the window'); GotoXY(27,WhereY); ReadKey; ClrEol; WriteLn; end.