# | Line 938 | Line 938 | end; | |
---|---|---|
938 | ||
939 | procedure TIBSQL.SetTransaction(Value: TIBTransaction); | |
940 | begin | |
941 | + | if FBase.Transaction = Value then Exit; |
942 | + | FreeHandle; |
943 | FBase.Transaction := Value; | |
944 | end; | |
945 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |