If Anweisung... Block?

[Maja Jessica]

Und klappt?

So in etwa:

Delphi-Quellcode:

var
...
c : string;

begin
  repeat
    writeln ('Vendetta - Einheitenpunktezaehler');
    writeln ('Bitte gebe den Namen der Einheit an (Bitte in Vokalen, z. B. Soeldner): ');
    readln  (ein);
    write ('Bitte gebe die Anzahl der Einheiten an: ');
    readln  (anz);
    if ein = 'Schlaeger' then pun:=anz*6
    // ...
    else if ein = 'Bollermann' then pun:=anz*281
    else pun:=0;
    writeln;
    writeln;
    if pun = 0 then writeln ('Die Einheit wurde leider nicht gefunden')
    else   write ('Hier die Gesamtpunktzahl:'); write (pun);
    writeln;
    write('Nochmal (j/n): ');
    readln(c);
    writeln;
  until (c = 'n');
end.

Es gab dochmal unter Pascal7.0 eine Funktion, die auf eine Tasteneingabe direkt reagierte.
(ohne Enter drücken zu müssen)
Ich komme ich im Moment nicht darauf. Keypressed? ReadChar? (in der Unit CRT?)

MJ