Du kannst es mit copy machen:
Ließ die ersten 5 Zeichen und vergleich sie dann mit den Vorlagen
Delphi-Quellcode:
astring:=copy(personalnummer,0,5);
if astring='12345' then
...
if astring='54321' then
...
Toxman
Erwarte das Beste und bereite dich auf das Schlimmste vor.