Konsole leeren?

[LDericher]

Hi!

Habe vor, das Sequel zu meinem Konsolengame DOR rauszubringen.
DOR selbst ist schon recht alt - mein erstes Delphi-Spiel - und lässt sich Hier auf meiner Webseite finden.
Nun suche ich eine Möglichkeit, die Konsole zu leeren, also z.B.

Delphi-Quellcode:

Irgendwas reinschreiben();
Nochwas schreiben();
LEEREN(); //Konsole soll leer sein!
Was neues schreiben();
...

Kennt jemand eine passende Möglichkeit?

Danke im Voraus,
Euer LDer!

[Klaus01]

Guten Abend,

also in der cmd shell heißt der Befehl cls (ClearScreen).

Grüße
Klaus

[DeddyH]

AFAIK gibt es für Delphi auch eine Portierung der alten TP-Unit crt. Da hieße das dann clrscr.

[LDericher]

Zitat von Klaus01:

Guten Abend,

also in der cmd shell heißt der Befehl cls (ClearScreen).

Grüße
Klaus

Ja und wie führe ich CLS aus?

[Klaus01]

Schreibe doch mal mit welcher Sprache Du Dein Programm erstellt hast.
Wenn es TurboPascal ist, dann geht auch, wie DeddyH geschrieben hat, ClrScr.
Wenn es ein Delphi Consolen Programm ist, kannst Du dir die crt32.pas suchen
und in Dein Programm einbinden.
Dann hast Du auch den Befehl ClrScr zur Verfügung.

Wenn Du Deine Console mit pipes o.ä. bedienst
dann kannst Du cls über die pipe an die Console
schicken.

Also etwas mehr Infos von Deiner Seite sind gefragt.

Grüße
Klaus

[LDericher]

Ja hmmm...

Delphi32 steht ja in der Überschrift
Pipes (was auch immer das sein mag) benutze ich höchstens ohne es zu wissen
Und noch bin ich in der ... Durchdenkenphase - das Projekt hat bisher ein testmäßiges writeln und ein readln. Mehr noch nicht.
Genug?

By LDer.

[Klaus01]

Zitat von Superwinger:

Ja hmmm...

Delphi32 steht ja in der Überschrift :D
Pipes (was auch immer das sein mag) benutze ich höchstens ohne es zu wissen :D
Und noch bin ich in der ... Durchdenkenphase - das Projekt hat bisher ein testmäßiges writeln und ein readln. Mehr noch nicht. ;)
Genug?

By LDer.

.. dann binde die CRT32.pas ein und gut ist es.

Schönen Abend noch
Klaus

[LDericher]

Dankiiiii!

Hatte selbst keine funktionierende Version gefunden

[nicodex]

Delphi-Quellcode:

program HelloWorld;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

function ClearConsoleScreen(): Boolean;
var
  ConsoleOutput: THandle;
  ConsoleScreenBufferInfo: TConsoleScreenBufferInfo;
  WriteCoord: TCoord;
  NumberOfCharsWritten: DWORD;
begin
  Result := False;
  ConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  if ConsoleOutput <> INVALID_HANDLE_VALUE then
  begin
    if GetConsoleScreenBufferInfo(ConsoleOutput, ConsoleScreenBufferInfo) then
    begin
      WriteCoord.X := 0;
      WriteCoord.Y := 0;
      if FillConsoleOutputCharacter(ConsoleOutput, ' ',
        ConsoleScreenBufferInfo.dwSize.X * ConsoleScreenBufferInfo.dwSize.X,
        WriteCoord, NumberOfCharsWritten) then
      begin
        Result := SetConsoleCursorPosition(ConsoleOutput, WriteCoord);
      end;
    end;
  end;
end;

begin
  try
    WriteLn('Hallo');
    ClearConsoleScreen();
    WriteLn('World');
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  ReadLn;
end.

[sirius]

@Nicodex:
Da fehlt noch das setzen der Farben.
Aber ich vermute die CRT32 wird dat schon richten.