快捷输入电大学号 delphi代码

function easyinput(s:string):string;
 // uses StrUtils
var
   str:string;
begin
  case strToint(s[2]) of
   1,3,7:
   begin
        str:='0'+copy(s,1,2)+rightstr('00000'+copy(s,3,length(s)-2),6);
   end;
   2,4:
     begin
       case strtoint(s[1]) of
       8,9:
       str:='0'+copy(s,1,1)+'44201'+copy(s,2,1)+rightstr('00000'+copy(s,3,length(s)-2),5);
       else
         str:='1'+copy(s,1,1)+'44201'+copy(s,2,1)+rightstr('00000'+copy(s,3,length(s)-2),5);
       end;
     end;
  end;
  Result:=str;
end;

输入              输出

 8723           087000023  

94563          0944201400563

12563           1144201200563