ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/ibxscript.pas
(Generate patch)
# Line 39 | Line 39
39  
40    BlobLineLength = 40;
41  
42 +  DefaultTerminator = ';';
43 +
44    {Non-character symbols}
45    sqNone                 = #0;
46    sqEnd                  = #1;
# Line 732 | Line 734
734        begin
735          with GetTransaction do
736            if InTransaction then Rollback;
737 +        FSymbolStream.Terminator := DefaultTerminator;
738          if assigned(OnErrorLog) then
739          begin
740            Add2Log(Format(sStatementError,[FSymbolStream.GetErrorPrefix,
# Line 1933 | Line 1936
1936   constructor TSymbolStream.Create;
1937   begin
1938    inherited;
1939 <  FTerminator := ';';
1939 >  FTerminator := DefaultTerminator;
1940    NextStatement;
1941   end;
1942  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines