كيف تحويل الرمز من 000001/2014 الى bl0001/2014

[مبرمج مبتدأ]

أو جرب

كود :

[COLOR=#000000]NewNvente := '[COLOR=Red]0BL0001[/COLOR]/'+intTostr(year[COLOR=#007700]);[/COLOR][/COLOR]

كود :

[COLOR=#000000]if Copy (NewNvente,8,4)<> intTostr (year) then NewNvente := '[/COLOR][COLOR=#000000][COLOR=#000000][COLOR=#0000BB][COLOR=#000000][COLOR=Red]0BL0001[/COLOR][/COLOR][/COLOR][/COLOR]/'+intTostr(year);[/COLOR]