Effacer l'écran d'une console

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 217 fois - Téléchargée 30 fois

Contenu du snippet

Pour utiliser cette fonction, simplement la coller dans votre project (console), ajouter windows dans les uses et pour effacer l'écran, simplement ecrire CLS;

exemple:

program TextCons;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

var Txt: String; Quit: Boolean;

procedure Cls;
var C: TCoord;
N,H,L: Cardinal;
begin
H:=GetStdHandle(STD_OUTPUT_HANDLE);
C:=GetLargestConsoleWindowSize(H);
L:=C.X*C.Y;
C.X:=0;
C.Y:=0;
FillConsoleOutputCharacter(H,' ',L,C,N);
SetConsoleCursorPosition(H,C)
end;

begin
repeat
ReadLn(Txt);
if UpperCase(Txt) = 'CLS' then Cls
else if UpperCase(Txt) = 'EXIT' then Quit:=True
until Quit;
end.

Source / Exemple :


procedure Cls;
var C: TCoord;
N,H,L: Cardinal;
begin
H:=GetStdHandle(STD_OUTPUT_HANDLE);
C:=GetLargestConsoleWindowSize(H);
L:=C.X*C.Y;
C.X:=0;
C.Y:=0;
FillConsoleOutputCharacter(H,' ',L,C,N);
SetConsoleCursorPosition(H,C)
end;

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.