Konsolenanwendung

[StanY]

Wie kann ich es realisieren, dass eine Konsolenanwendung sich nur schließt, wenn der Anwender beispielsweise 'exit' eingibt?

Hab schon gesucht, aber das half mir nicht so richtig weiter...

Danke schonmal im Vorraus. (:

[Meflin]

füge

Code:

readln(strVariable);
if strVariable = 'exit' then close;

allerdings verhindert das nicht, dass die konsole bei klick auf x geschlossen wird. willst du das auch verhindern?

[StanY]

Öhm.

Es ist zwar so, dass bei diesem Code die Console geschlossen wird, wenn ich exit eingebe; allerdings wird sie auch bei jeder anderer Eingabe geschlossen ^^

[Meflin]

achso stimmt. dann machs so:

Delphi-Quellcode:

label label1;
...
label1:
readln(strVariable); 
if strVariable = 'exit' then close else goto label1;

[StanY]

Delphi-Quellcode:

label Schleife;

begin
  Schleife:
    ReadLn;
    GoTo Schleife;
end.

Wunderbar. So geht's. Danke (:

[alcaeus]

Hi StanY, Hi Meflin,

ich glaub ich seh wohl nicht richtig: label und goto?
Geht auch einfacher:

Delphi-Quellcode:

repeat
  Readln(strVariable);
until strVariable = 'exit';

Greetz
alcaeus

[Die Muhkuh]

OT:

GoTos:

[alcaeus]

Ich stimme Spider zu. Von Gotos ist generell abzuraten, die erzeugen nur Spaghetti-Code, in dem sich kein Mensch mehr auskennt. Weiters lassen sich die meisten Gotos mit einer geschickten Verwendung von Schleifen und Prozeduren auch lösen, siehe mein Beispiel oben.

Greetz
alcaeus

[glkgereon]

OT:
Ich mag spaghettis


aber nee, gotos sind wirklich grausig, von daher.....

[Meflin]

ja laeute, ich habs langsam kapiert... wie viele wollen jetzt noch sagen das gotos grausig sind? ich hab nix gegen die und manchmal lassen sie sich sogar wirklich nicht vermeiden...