was machen mit den Hangups ? Konsolenprobleme die zweite ^ ^

[Chris1986]

Hi hboy,
ich weiß nicht genau was du meinst, aber es sieht stark so aus, als würdest du eine Nachrichtenschleife meinen. Ich hab das so gelöst:

Delphi-Quellcode:

var Shutdown: boolean;
    Eingabe: string;

  while not Shutdown do
  begin
    readln(Eingabe);
    if lowercase(Eingabe) = 'quit'
      then begin
             writeln('# Server wird in Sek beendet');
             sleep(5000);            //5Sek auf das schließen warten
             writeln('# Auf Wiedersehen');
             Shutdown := true;
           end;
  end;

//Edit: pushen bitte erst nach 24Stunden
MfG
Christian