Wie kann ich eine Konsolenanwendung leeren?

[hathor]

Zitat von Bummi:

@hathor
das wäre dann 1:1 der Auszug der Prozedur :

Delphi-Quellcode:

unit crt32;
{# freeware}
{# version 1.0.0127}
{# Date 18.01.1997}
{# Author Frank Zimmer}
{# description
 Copyright © 1997, Frank Zimmer, [e-mail]
 Version: 1.0.0119
 Date:    18.01.1997
............snipp.........

Falsch - vergleiche mal genau!

Delphi-Quellcode:

procedure ClrScr;
var tc :tcoord;
  nw  : DWORD;
  cbi : TConsoleScreenBufferInfo;
  HConsoleOutput:thandle; // eingefügt
  TextAttr : Word; // eingefügt
begin
  TextAttr := cbi.wAttributes; // eingefügt
  HConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE); // eingefügt
  getConsoleScreenBufferInfo(HConsoleOutput,cbi);
  tc.x := 0;
  tc.y := 0;
  FillConsoleOutputAttribute(HConsoleOutput,textattr,cbi.dwsize.x*cbi.dwsize.y,tc,nw);
  FillConsoleOutputCharacter(HConsoleOutput,#32,cbi.dwsize.x*cbi.dwsize.y,tc,nw);
  setConsoleCursorPosition(hconsoleoutput,tc);
end;