Einzelnen Beitrag anzeigen

PomBär

Registriert seit: 28. Sep 2003
Ort: MV
57 Beiträge
 
Delphi 6 Professional
 
#1

erstellen einer funktion getinteger

  Alt 26. Nov 2003, 13:10
hi leutz
ich hab ne aufgabe und weis nicht so genau was ich da machen soll habt ihr ne idee und einen lösungsvorschlag??

Wenn die Deklaration var s:string; z,c:integer; gegeben ist, bewirkt der Aufruf val(s,z,c) folgendes: s wird in eine Zahl zu wandeln versuch und in z abgelegt. Ist c=0; war es erfolgreich; sonst enthält c die Fehlerposition.
Aufgabe: eine Funktion GetInteger(p:string), welche den Parameter p per writeln ausgibt. per readln einen string einliest, dies solange tut , 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.
  Mit Zitat antworten Zitat