Einzelnen Beitrag anzeigen

Benutzerbild von vergessen
vergessen

Registriert seit: 29. Jun 2010
85 Beiträge
 
Delphi 5 Professional
 
#6

AW: Wie kann ich eine Konsolenanwendung leeren?

  Alt 5. Dez 2010, 00:01
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.
  Mit Zitat antworten Zitat