Konsoleninhalt löschen

[3_of_8]

Morgen.

Ich habe mir eine Konsole gebastelt und würde jetzt gerne den Inhalt löschen. Wie mache ich das?

[fwsp]

so oft writeln('') bis alles weg ist.
in dos gab es mal den befehl cls.

[3_of_8]

Erscheint mir ein bissel unsauber, und vor allem, wann weiß ich, wann alles weg ist?

Es muss doch dafür irgendne API-Funktion oder ne Message geben.

[fwsp]

so viele zeilen hat ne konsole nicht, 50 sollten reichen.
sicherlich ist das nicht die feinste methode, funktioniert aber.

[marabu]

Hi,

es gibt einen knowledgebase article dazu: How To Performing Clear Screen (CLS) in a Console Application

Grüße vom marabu

[Balu der Bär]

Morgen. ( :mrgreen: )

Delphi-Quellcode:

procedure ClrScr;
var
  tc: tcoord;
  nw: Cardinal;
  cbi: TConsoleScreenBufferInfo;
begin
  getConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), cbi);
  tc.x := 0;
  tc.y := 0;
  FillConsoleOutputAttribute(GetStdHandle(STD_OUTPUT_HANDLE),
    textattribute, cbi.dwsize.x * cbi.dwsize.y, tc, nw);
  FillConsoleOutputCharacter(GetStdHandle(STD_OUTPUT_HANDLE),
    #32, cbi.dwsize.x * cbi.dwsize.y, tc, nw);
  setConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), tc);
end;

http://www.delphi-forum.de/viewtopic.php?p=14183#14183

[3_of_8]

Danke.

Ich muss das ja zum Glück nicht verstehen. :mrgreen:

[inherited]

Wenn du mir jetzt noch schnell sagst in welcher Unit das zeuch liegt sind wir fast Wunschlos Glücklich^^

[chrisw]

In der WinCRT32
wie bereits in diesem
Beitrag beschrieben ! Allerdings heisst die Prozedur "ClearConsole"

[inherited]

Dankee