Показать сообщение отдельно
  #1  
Старый 29.09.2010, 21:00
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию Работа со строками

Есть некая система артикулирования:

МРМР0003
МРМР0004
МРМР0005
МРМР0006

и т.д.

Первые четыре символа буквы, с 5го по 8ой - цыфры.
Задача: упростить созданный код:

Код:
StrC:=StrToInt(Copy(МРМР0004,5,4))+1; (копируем последние 4ре, преобразуя в int '0004'->'4', добавляем 1ку)

if (StrC>=1) and (StrC<=9) then Count:='000'+IntToStr(StrC);
if (StrC>=10) and (StrC<=99) then Count:='00'+IntToStr(StrC);
if (StrC>=100) and (StrC<=999) then Count:='0'+IntToStr(StrC);
if (StrC>=1000) and (StrC<=9999) then Count:=IntToStr(StrC);

newArticle:=Copy(МРМР0004,1,4)+Count

Я слышал что можно преобразовывать строки в байтовый код и с ним работать.

Т.е. с точки зрения "байта" 0002 и 2 - разные вещи (очевидно )
Не могу найти ответ на вопрос

как преобразовать?
как работать с преобразованным.
Ответить с цитированием