Wie kann ich eine Konsolenanwendung leeren?

[vergessen]

Zitat von NamenLozer:

Willkommen in der DP
Such mal bei Google nach der Unit "crt32.pas", diese stellt u.a. die Funktion ClrScr bereit, womit sich der Bildschirminhalt löschen lässt. Lade die Unit herunter und lege sie im Lib-Verzeichnis von Delphi oder in deinem Projektverzeichnis ab, und füge dann "crt32" zum uses-Abschnitt in deinem Quellcode hinzu.

Das Problem ist ja schon gelöst, aber mit write (statt writeln) und readln sieht's noch ein wenig hübscher in der Konsole aus:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  crt32,
  SysUtils;

var
  i, a: integer;

begin
  repeat
    Write('Ihre Eingabe: ');
    Readln(a);
  until a = 0;
  //for i := 0 to 500 do Writeln(''); 
  //500 Leerzeilen sollten für ein cls ohne crt32 reichen ;-)
  ClrScr;
  Write('Und wie jetzt weiter? ');
  Readln;
end.

[hathor]

Ohne zusätzliche Units geht es so:

Delphi-Quellcode:

procedure ClrScr;
var tc :tcoord;
  nw  : DWORD;
  cbi : TConsoleScreenBufferInfo;
  HConsoleOutput:thandle;
  TextAttr : Word;
begin
  TextAttr := cbi.wAttributes;
  HConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  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;

[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.........

[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;

[Bummi]

@hathor
me culpa, mea maxima culpa

[vergessen]

Und ich habe aus der crt32.pas für Delphi7personal aus

interface
uses
windows,
messages,
Porting;

das Porting;

herauslöschen müssen

Edith vermisst eine extrem leistungsstarke Beschleunigung des einfach lesbaren "Pascal-Kots" durch himitsu via Assembler oder unlesbare Pascal-Syntax-Optimierung im C-Stil

[himitsu]

später vielleicht...

Delphi-Quellcode:

TextAttr := cbi.wAttributes; // eingefügt
.

Laß diese Variable weg und nutze da weiter unten direkt cbi.wAttributes .

Der Grund:
Der Inhalt von cbi.wAttributes ist zu diesemzeitpunkt noch undefiniert, da cbi erst später befüllt wird (siehe getConsoleScreenBufferInfo).

[vergessen]

Zitat von himitsu:

später vielleicht...

Delphi-Quellcode:

TextAttr := cbi.wAttributes; // eingefügt
.

Laß diese Variable weg und nutze da weiter unten direkt cbi.wAttributes .

Der Grund:
Der Inhalt von cbi.wAttributes ist zu diesemzeitpunkt noch undefiniert, da cbi erst später befüllt wird (siehe getConsoleScreenBufferInfo).

Geh' doch BITTE 'mal schafen, lieber himitsu!

Edith spendiert dem "schafen" noch ein "L" zum Schlafen