Nur leider macht die Funktion nicht ganz was ich versprochen hat habe
Sie Ignoriert nur falsche Zeichen im String.
wert := StrToInt( '400x');
würde eine Fehler liefern, aber
Val( '400x', wert, fehlerpos);
würde wert = 400 liefern. Ich nehme trotzdem an, das dein Lehrer diese Funktion gemeint hat.
[Edit: Sch.... Tippfehler]