ClrEol: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
 
(Není zobrazena jedna mezilehlá verze od stejného uživatele.)
Řádek 36: Řádek 36:
  
 
[[Category:CRT]]
 
[[Category:CRT]]
[[Category:Procedúra CRT]]
+
[[Category:Procedúry CRT]]

Aktuální verze z 2. 10. 2012, 20:34

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.