| # | Line 27 | Line 27 | unit ibxscript; | |
|---|---|---|
| 27 | ||
| 28 | {$mode objfpc}{$H+} | |
| 29 | ||
| 30 | + | {$IF FPC_FULLVERSION >= 20700 } |
| 31 | + | {$codepage UTF8} |
| 32 | + | {$ENDIF} |
| 33 | + | |
| 34 | interface | |
| 35 | ||
| 36 | uses Classes, IBDatabase, IBSQL, IBHeader; | |
| # | Line 363 | Line 367 | begin | |
| 367 | if FState = stInit then | |
| 368 | FState := stInCommit | |
| 369 | else | |
| 370 | < | raise Exception.Create(sNoCommit) |
| 370 | > | AddToSQL(FString); |
| 371 | end; | |
| 372 | ||
| 373 | sqReconnect: | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |