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