ClrEol
Verze z 2. 10. 2012, 20:34, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
Smaže všechny znaky od pozice kurzoru do konce řádky, bez přemístění kurzoru.
- Deklarace
procedure ClrEol;
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Všechny znaky do konce řádky jsou nahrazeny mezerami s aktuálními textovými attributy. Takže pokud TextBackground není černá, dostane řádka od kurzoru vpravo barvu pozadí.
- ClrEol se vztahuje k aktuálnímu oknu. Následující řádky programu definují textové okno a smažou aktuální řádku od pozice kurzoru (1, 1) k pravému okraji aktivního okna (60,1).
Window(1, 1, 60, 20); ClrEol;
Vzorový příklad
{ClrEol.PAS} {Vzorový příklad pro proceduru ClrEol.} { Pro Windows: } { uses WinCrt; } uses Crt; begin ClrScr; Writeln('Ahoj. Jak se máš?'); Writeln('Stiskněte libovolnou klávesu...'); Readln; GotoXY(1,2); ClrEol; Writeln ('Rád tě vidím!'); end.