소스 검색

+ escaping support from Ido Kaner

git-svn-id: trunk@223 -
florian 20 년 전
부모
커밋
9d9d0d7b33
1개의 변경된 파일5개의 추가작업 그리고 3개의 파일을 삭제
  1. 5 3
      packages/base/regexpr/regexpr.pp

+ 5 - 3
packages/base/regexpr/regexpr.pp

@@ -181,9 +181,11 @@ unit regexpr;
                               readchars:=cs_nonwordchars;
                            end;
                          else
-                           begin
-                              error:=true;
-                              exit;
+                           begin //Some basic escaping...
+                              readchars := [currentpos^];
+                              inc (currentpos);
+                              {error:=true;
+                              exit;}
                            end;
                      end;
                   end;