Thema: Delphi If Anweisung... Block?

Einzelnen Beitrag anzeigen

Maja Jessica

Registriert seit: 16. Apr 2005
Ort: Dortmund
95 Beiträge
 
Delphi 4 Standard
 
#12

Re: If Anweisung... Block?

  Alt 12. Dez 2006, 16:34
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 = 'Schlaegerthen pun:=anz*6
    // ...
    else if ein = 'Bollermannthen 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
  Mit Zitat antworten Zitat