（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

>>602
それだと入力が 指定した桁数以上あるとズレてしまうから

function IntToZeroStr(dt,keta:integer):string;
begin
　dt:= dt mod power(10,keta);　// こっちを入れるか
　result := Format('%.*d',[keta,dt]);
　result := copy(Result , length(Result)-keta,keta); //こっちを入れる必要があるかと
end;