DeddyH hat's ja schon geschrieben:
Delphi-Quellcode:
if length(PNR) <>8 then
ShowMessage ('Nummer muss 8. Stellig sein')
else begin
NR1 := Copy (PNR, 1, 1);
NR2 := Copy (PNR, 2, 1);
....
Und dann würde ich gleich eine Prüf/Korrektur Routine nutzen
etwa so
Delphi-Quellcode:
type
tpnr:string[8];
function PNR_Angleichen(pnr:tpnr):boolean;
var
i : integer;
begin
result:=true;
while length(mystring)<8 do mystring:='0'+Mystring;
for i:=1 to 8 do if not(mystring[i] in ('0','1','2'....'9')) then result:=false;
end;
(ist nicht soo optimal aber übersichtlich)
Gruß
K-H