Eingaben prüfen (Pascal)

[alcaeus]

Zitat von glkbkk:

das problem hatte ich auch schon oft: gibt es in pascal sowat in der art:

Code:

if try readln(InEinenInteger)=error
then machsnochmal;
//also wenn der benutzer KEINEN integer eingibt, muss ers nochmal machen, solang bis ers hinkriegt

gibts das?

Nein, aber das gibts in Pascal:

Delphi-Quellcode:

function SichereEingabe(Text: String): Integer;
var
  Wert, Code: Integer;
  WertEin: String;
begin
  repeat
    Write(Text+' ');
    Readln(WertEin);
    Val(WertEin,Wert,Code);
    if Code <> 0 then
      Writeln('Ungültige Eingabe');
  until Code=0;
  SichereEingabe := Wert;
end;