Konsolenanwendung Problem

[Xster]

hi zusammen,

ich habe eine Konsolenanwendung programmiert...

soweit so gut..

wenn ich diese nun starte geht alles einwandfrei..

meine frage ist jetzt: wenn ich die Anwendung starte dann komme ich sofort ganz unten in die Konsole und muss hochscrollen um zu sehen was da stand.

wie kann ich die konsole praktisch durchlaufen lassen und das am besten mit langsamer Geschwindigkeit und mehrmals hintereinander???

thx vorher

Mfg Xster

[turboPASCAL]

Ich glaube nicht das das per Console geht.

[Xster]

muss aber irgendwie gehen.

weil bei anderen Konsolen geht das doch auch das man zugucken kann wenn es den Test und so lädt

[Xster]

das heißt in der Konsole rattert so Text runter, das will ich auch haben

der Text steht schon drin aber es scrollt sofort runter und man sieht zb: nich was in der ersten Zeile steht!

[sirius]

Bei anderen dauert es wahrscheinlich auch etwas länger.
Dein Programm ist halt zu gut programmiert und macht alles flink und flott

[Xster]

kann ich das nich irgendwie ändern.

also ich will einen Fake Virus programmieren, wo so drinsteht Virus wird geladen,
dann rattern da irgendwelche zahlen runter.
ist das irgendwie umzusetzen??

[quendolineDD]

Mal abgesehen von allen Aspekten der Ausführungsgeschwindigkeit könntest du eine manipulierte Ausgabe auf der Konsole erzeugen und diese über einen Timer steuern.

[DeddyH]

Oder einfach ein Sleep einfügen.

[Xster]

und wie mach ich das mit dem sleep bzw. Timer

[DeddyH]

Delphi-Quellcode:

program Konsole;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var s: AnsiString;

begin
  try
  { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
    s := 'Böser Virus';
    CharToOEM(PAnsiChar(s),PAnsiChar(s));
    Writeln(s);
    Sleep(5000);
    Writeln('Beenden mit Enter');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.