erstellen einer funktion getinteger

[Luckie]

@himitsu: Die Prozedur val gibt es schon. Und ich denke mal, er soll sie verwenden für seine GetInteger Funktion.

Delphi-Quellcode:

function GetInteger(s: String): Boolean;
var
  Code: Integer;
  i: Integer;
begin
  val(s, i, Code);
  result := Code = 0;    
end;

Das wäre mein Ansatz aber das:

Zitat:

bis ein gültiger integer eingegeben wurde und den als result zurückliefert. Im Fehlerfall wird dem User die Fehlerposition mitgelteilt und erneut zur Eingabe aufgefordert.

Soll das innerhalb der Funktion passieren oder in der while-Schleife?