Netspirit писал(а):
if (PChar(Msk + 1)^ = #0) or _StrCmp(Str, Msk + 1) thenХм........
Многое я забыл, конечно же.
Однако, nesco, я тебе один умный вещь скажу: возможно, что Netspirit -- таки прав.
Его код (в FPC2) отличается от нашего (пакет Delphi) прежде всего тем, что он не захотел ставить в хвост Строке и Маске по дополнительному символу (у нас это #1).
За что и выхватил, конечно же.
НО: вроде бы и исправил.
Отсюда предложение: давай и мы сделаем аналогично. Все таки, добавлять в хвосты какой-то непонятный #1 - не самое красивое решение.
Да и тестеров у нас побольше (а то он еще два года тестировать будет)....
--- Добавлено в 2020-01-01 18:52:56
Хотя фигушки
Netspirit не поймал еще один глюк: при маске типа Ed??** в вышеприведенной схеме
Netspirit, попробуй как у меня
Может тоже что найдешь.... Говорю же - давно все это было, и позабылось кое чего.