search

jsbattig / delphi-javascript

Automatically exported from code.google.com/p/delphi-javascript
3 stars 3 forks source link

Error(?) in function "procedure CheckDebugBreak(Engine: TJSEngine; var code: string);" #11

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 years ago 
jsintf.pas

procedure CheckDebugBreak(Engine: TJSEngine; var code: string);

#1
instead of
    if pos('DebugBreak()', Code) > 1 then
should be
    if pos('DebugBreak()', Code) >= 1 then

#2
instead of
       if (pos('DebugBreak()', lines[i]) > 1) and (trim(lines[i]) = 'DebugBreak();') then
should be
       if (pos('DebugBreak()', lines[i]) >= 1) and (trim(lines[i]) = 'DebugBreak();') then

Original issue reported on code.google.com by andre...@diatomenterprises.com on 8 Nov 2013 at 12:06