ClrEol: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(Žádný rozdíl)

Verze z 1. 10. 2012, 09:22

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.