cls in console app

[value is NULL]

Hi

möchte in meiner console app einen cls befehl einbauen, habe dazu folgendes aus dem netz gefunden:

Delphi-Quellcode:

uses
  Windows;

{$R *.RES}

var
  sbi : TConsoleScreenBufferInfo;
  i : integer;
begin
  Writeln('A Console Applicaiton');
  Writeln('Press Enter To Clear The Screen');
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
                             sbi);
  Readln;
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
                             sbi);
  for i := 0 to sbi.dwSize.y do
    writeln;
  Writeln('Press Enter To End');
  Readln;
end.

das sieht jedoch mörder schw*** aus bis er alles mit leerzeichen befüllt hat.

mein projekt ist eine kleine shell zu basteln dh der aufbau des fensters sieht wie ein dos fenster aus...

hat jemand ne idee wie ich das umsetzen kann?

danke im voraus

LG

[DeddyH]

Geht es mit der DelphiCrt schneller?

[rollstuhlfahrer]

warum eine Kommandozeile selbst basteln? Windows hat doch eine an Bord. Einfach in die Projektdatei ein "{$APPTYPE CONSOLE}" hinzuschreiben und du hast dein Konsolenprogramm. Einfacher gehts über Datei->Neu->weiteres...->...->Konsolenprogramm

Bernhard

[DeddyH]

Da gibt es aber keine Möglichkeiten, Schriftfarben zu setzen oder den Bildschirm zu leeren wie mit TP unter DOS.

[Luckie]

Natürlich gibt es die Möglichkeit die Frabe zu setzen. Dazu gibt es die Funktion setconsoletextattribute.

[DeddyH]

Meinetwegen, aber was ist mit clrscr, gotoxy usw.? Willst Du das jedesmal neu implementieren?

[value is NULL]

nun ja es ist ja eine console app....

brauche praktisch nur eine function mit der ich das cls imitieren kann...

[DeddyH]

In der angesprochenen DelphiCRT wird dazu FillConsoleOutputCharacter und FillConsoleOutputAttribute benutzt. Nach einem flüchtigen Blick glaube ich allerdings nicht, dass man die ClrScr-Routine einfach so per C&P übernehmen kann. Spricht denn etwas dagegen, die Unit einzubinden?

[Luckie]

Zitat von DeddyH:

Meinetwegen, aber was ist mit clrscr, gotoxy usw.? Willst Du das jedesmal neu implementieren?

Nö, warum? Ich nehem da einfach die unit von Oliver: http://www.michael-puff.de/Programmi...d/ConTools.inc

[DeddyH]

Dann kann man aber auch die von mir verlinkte Unit nehmen. Ich hatte ja nicht behauptet, dass es grundsätzlich unmöglich ist, sondern dass es eine Menge Arbeit ist, die Funktionalität zu implementieren. Von daher würde ich auf eine fertige Unit zurückgreifen, welche, sei mal dahingestellt.