
29.09.2010, 22:30
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Код:
StrC:=StrToInt(Copy(МРМР0004,5,4))+1; (копируем последние 4ре, преобразуя в int '0004'->'4', добавляем 1ку)
Count := InttoStr(StrC);
While Length(Count) < 4 Do Count := '0' + Count;
newArticle:=Copy(МРМР0004,1,4)+Count
|