| Функция PrevNumStr |
|
|
|
Функция уменьшает на 1 числовое значение, представленное строкой str: из строки выбрасываются все нечисловые символы, декрементируется оставшееся число, затем все нечисловые символы возвращаются на место.
Функция получает аргумент как var-параметр, меняет его и возвращает значение.
Для улучшения читаемости кода и для обеспечения
совместимости с возможными изменениями функции в будущем
рекомендуется использовать обращение вида:
str := PrevNumStr(str)
function PrevNumStr(var str : string) : string;
srt : string - обрабатываемая строка с числом.
Функция возвращает модифицированную строку, в которой первое слева числовое значение уменьшено на 1.
Пример 1
PrevNumStr('Скл750#12.02.00.') = 'Скл750#12.01.99.'
Функция выделит число 750120200 и вычтет из него 1. После модификации строка будет выглядеть следующим образом: 'Скл749#12.01.99.'.
Пример 2
PrevNumStr('000') = 999