if s=VK_RETURN then
Das geht nur innerhalb von
VCL Anwendungen.
Hier mal die erweiterte Abfrage
Delphi-Quellcode:
// hier wartet das Programm auf Eingabe vom StdInput
// man muss Return oder Strg+Z oder Strg+C drücken sondern geht's nicht weiter
readln(s); // s:string
if s = '' then MachWas // Benutzer hat nur Return gedrückt
else if s = '1' the BerechneZins // Benutzer hat 1 und dann Return gedrückt
else if s = '2' then BerecneVerlust
else if (s ='e') or (s='E') then exit
else writeln('falsche Eingabe');