Bezüglich des Escaping:
Delphi-Quellcode:
'\': If not (cfOnlyWild in Flags) and (Mp + 1 < Me2) Then
Case (Mp + 1)^ of '*', '?', '{', '~', '|', '\': Inc(Mp); End
Else GoTo LElse;
kleiner Unterschied, große Wirkung
Delphi-Quellcode:
'\': Begin
If not (cfOnlyWild in Flags) and (Mp + 1 < Me2) Then
Case (Mp + 1)^ of '*', '?', '{', '~', '|', '\': Inc(Mp); End;
GoTo LElse;
End;
und das Andere ... eine kleine Variable übersehn
(neues MaskenEnde Me in '|' nicht gesetzt)
Download siehe #26