Pacal: Window, Clrscr, wie Window verlassen

[Waldteufel]

Hi.

(ungetestet, sollte aber funktionieren)

Lösung 1: (hat den Nachteil, dass das aktuelle Window verloren geht)

Delphi-Quellcode:

procedure GanzenBildschirmLeermachen;
begin
  Window(1, 1, 80, 25);
  ClrScr;
end;

Lösung 2: (ohne Nachteil)

Delphi-Quellcode:

procedure GanzenBildschirmLeermachen;
var
  screen: array[1..25, 1..80] of word absolute $B800:0000;
  x, y : integer;
begin
  for x := 1 to 80 do
    for y := 1 to 25 do
      screen[y, x] := $0700;
end;

//edit2: Ich hatte dich missverstanden...
//edit3: Nachteile dazugeschrieben