Konsolenanwendung

[Meflin]

achso stimmt. dann machs so:

Delphi-Quellcode:

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