| # | Line 2614 | Line 2614 | end; | |
|---|---|---|
| 2614 | ||
| 2615 | procedure TIBExtract.SetDatabase(const Value: TIBDatabase); | |
| 2616 | begin | |
| 2617 | < | if FDatabase <> Value then |
| 2617 | > | if (csLoading in ComponentState) or (FDatabase <> Value) then |
| 2618 | begin | |
| 2619 | FDatabase := Value; | |
| 2620 | if (not Assigned(FTransaction)) and (FDatabase <> nil) then | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |