effacer console

Marsh Posté le 04-03-2004 à 17:23:26

bonjour,

Voila j'ai un ptetit problème je ne me souviens plus de la commande pour éffacer la console si quelqu'un pourrai me la donner

(je c'est pas si j'ai été assez clair alors je prefere etre sur en fait je voudrais la commande en pascal équivalente à par exemple system("cls" ) en C )

Reply

Marsh Posté le 04-03-2004 à 17:23:26

Reply

Marsh Posté le 05-03-2004 à 20:24:46

[:_________]

Reply

Marsh Posté le 16-03-2004 à 20:14:40

Code :

uses
SysUtils, Windows;
procedure Cls;
var
stdOutputHandle : Cardinal;
cursorPos : TCoord;
width, height : Cardinal;
nbChars : Cardinal;
begin
stdOutputHandle := GetStdHandle(STD_OUTPUT_HANDLE);
cursorPos := GetLargestConsoleWindowSize(stdOutputHandle);
width := cursorPos.X;
height := cursorPos.Y;
cursorPos.X := 0;
cursorPos.Y := 0;
FillConsoleOutputCharacter(stdOutputHandle, ' ', width*height, cursorPos, nbChars);
cursorPos.X := 0;
cursorPos.Y := 0;
SetConsoleCursorPosition(stdOutputHandle, cursorPos);
end;

Reply

Marsh Posté le 17-03-2004 à 01:34:44

heu plus simplement :

Code :

PROGRAM nom_du_program;
USES crt; {charge l'unité qui gére certain truc de la console}
CONST ... ;
TYPE ... ;
VAR ... ;
PROCEDURE ... :
FUNCTION ... ;
BEGIN
clrscr ; {commande qui effance l'ecran nécessite l'unité crt pour être apellé)
END.

---------------
LoD 4 ever && PWC spirit|Le topak de l'iMP-450|inDATOUNEwe trust

Reply

Marsh Posté le 17-03-2004 à 09:00:22

pinguin007 a écrit :

USES crt;

:cry: J'ai pas cette unité avec mon D7 Entreprise... la seule qui ressemble et qui ets dans mon lib s'appelle ctrl.dcu

Quelqu'un sait @ quoi sert CRTL.DCU ?

Parce que là, en voulant tester rapidement, j'ai tenté de l'utiliser à la place du CRT mentionné précédemment...

Je démarre Delphi... je crée une nouvelle appli console... j'ajoute CRTL dans mes uses...

Si je fais Ctrl+Click... il n'y a pas le ctrl.pas associé... si j'ai le malheur de compiler... Reboot violent de la machine !!! :cry:
J'ai tenté plusieurs fois et reboot systématique