Fixed some bugs

Upgraded exception handler, now using madCollection
2005-08-26 22:59:25 +00:00
parent b17f277a1b
commit 2a2d5697b8
9 changed files with 47 additions and 230 deletions
--- a/editor/studio/UnitCodeUtils.pas
+++ b/editor/studio/UnitCodeUtils.pas
@ -287,7 +287,7 @@ end;
 function Between(eText, eFirst, eSecond: String): String;
 var eTemp: String;
 begin
-  if (Pos(eFirst, eText) = 0) or (Pos(eSecond, eText) = 0) then
+  if (Pos(eFirst, eText) = 0) and (Pos(eSecond, eText) = 0) then
    Result := ''
  else begin
    eTemp := eText;