Konsolenanwendung: if [Enter] then Procedure XY - wie umsetz

[sx2008]

Nach du kannst z.B. ein Menue als Text anbieten:

Delphi-Quellcode:

writeln('1 = berechne Zinsen');
writeln('2 = berechne Verlust');   // DAX lässt grüssen
writeln('E = Ende');

Und dann fragst du den Stanardinput ab:

Delphi-Quellcode:

readln(s);  // s:string
if s = '1' the BerechneZins
else if s = '2' then BerecneVerlust
else if (s ='e') or (s='E') then exit
else writeln('falsche Eingabe');

So *kann* man das machen. Man bekommt aber ein Programm mit Look & Feel der 1970er Jahre.