Доброе время суток. Хотелось бы поделиться с вами своей проблемой, и услышать ответ как её разрешить. Всё в общем-то просто. Изначально я считываю текстовый файл формата TUTDF с помощью Stream, меняю кодировку для того чтобы Русские символы были видны, а дальше... дальше с помощью регулярного выражения я хочу каждую строку, записать в элемент массива чтобы продолжить работу уже над каждой строкой отдельно.
RegExp.InputString := ss;
ss := RegExp.InputString;
RegExp.Expression := '([A-Z]{1,3})'; // Было много вариантов (для теста)
RegExp.ModifierG := true;
if RegExp.Exec(Trim(ss)) then
begin
result1 := RegExp.Match[0];
result2 := RegExp.Match[1];
ShowMessage(result1 + ' ' + result2);
end else
showmessage('Не найдено');
И здесь начинается моя проблема. Совпадений, больше одного, вообще не находится, а иногда и вовсе не ищется. Где только не ходил, что не читал... а так и не понял... хотя если использовать онлайн инструменты для тестирование регулярного выражения, то всё работает замечательно. Подскажите пожалуйста, в чём проблема...