OSDN Git Service
(root)
/
winbottle
/
winbottle.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
57c8273
)
Supress RegExp Error when the script is empty
author
naru
<bottle@mikage.to>
Sun, 24 Aug 2003 19:25:27 +0000
(19:25 +0000)
committer
naru
<bottle@mikage.to>
Sun, 24 Aug 2003 19:25:27 +0000
(19:25 +0000)
bottleclient/BottleChainRule.pas
patch
|
blob
|
history
diff --git
a/bottleclient/BottleChainRule.pas
b/bottleclient/BottleChainRule.pas
index
a7ca11f
..
0972c11
100755
(executable)
--- a/
bottleclient/BottleChainRule.pas
+++ b/
bottleclient/BottleChainRule.pas
@@
-1318,7
+1318,10
@@
begin
if not (Event is TBottleChainBottleEvent) then Exit;
Dat := (Event as TBottleChainBottleEvent).Data;
try
- Result := RegExp.Match(Pattern, Dat['Script']);
+ if Dat['Script'] <> '' then
+ Result := RegExp.Match(Pattern, Dat['Script'])
+ else
+ Result := false;
except
on E: EBRegExpError do begin
ShowMessage('
\90
³
\8b
K
\95
\
\8c
»
\83
G
\83
\89
\81
['#13#10#13#10 + E.Message);