1 578
editací
Změny
bez shrnutí editace
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.
[[Category:CRT]]
[[Category:Procedúra CRT]]
;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.
[[Category:CRT]]
[[Category:Procedúra CRT]]