Цитата Сообщение от Евгений Кислов Посмотреть сообщение
В выложенном проекте нужно исправить две ошибки.

1. Функция LEN подходит только для строк, длина которых не превышает 255 символов.
В вашем случае нужно использовать функцию StrLenA из библиотеки StringUtils (обратите внимание - это не OwenStringUtils, а другая библиотека).

2.

Нужно сделать так - чтобы было соответствие между объявлением массива и значением uiSubstringSize.

Код:
input_array: ARRAY[1..200] OF STRING(100);
Тогда код будет работать корректно.

2024-10-09_10-04-05.png
На приложенном вами скриншоте массив сформировался неправильно. я для наглядности сделал все разделенные подстроки одинаковыми, но в результате они получаются разными(какие-то обрезаны).
К примеру, из строки 1@0804640088021002115gKpn5CwG87mFFNC11FFD0FNC99dGV zdOvwCHl85aYdMlRUin6E0crdgLMvg18oKi/wagP=@2@0804640088021002115gKpn5CwG87mFFNC11FFD0FN C99dGVzdOvwCHl85aYdMlRUin6E0crdgLMvg18oKi/wagP=@3@0804640088021002115gKpn5CwG87mFFNC11FFD0FN C99dGVzdOvwCHl85aYdMlRUin6E0crdgLMvg18oKi/wagP=

Должно получиться:

1
0804640088021002115gKpn5CwG87mFFNC11FFD0FNC99dGVzd OvwCHl85aYdMlRUin6E0crdgLMvg18oKi/wagP=
2
0804640088021002115gKpn5CwG87mFFNC11FFD0FNC99dGVzd OvwCHl85aYdMlRUin6E0crdgLMvg18oKi/wagP=
3
0804640088021002115gKpn5CwG87mFFNC11FFD0FNC99dGVzd OvwCHl85aYdMlRUin6E0crdgLMvg18oKi/wagP=