|
@@ -474,7 +474,9 @@ __fastcall TSessionAction::~TSessionAction()
|
|
|
{
|
|
|
if (FRecord != NULL)
|
|
|
{
|
|
|
- Commit();
|
|
|
+ TSessionActionRecord * Record = FRecord;
|
|
|
+ FRecord = NULL;
|
|
|
+ Record->Commit();
|
|
|
}
|
|
|
}
|
|
|
//---------------------------------------------------------------------------
|
|
@@ -486,16 +488,6 @@ void __fastcall TSessionAction::Restart()
|
|
|
}
|
|
|
}
|
|
|
//---------------------------------------------------------------------------
|
|
|
-void __fastcall TSessionAction::Commit()
|
|
|
-{
|
|
|
- if (FRecord != NULL)
|
|
|
- {
|
|
|
- TSessionActionRecord * Record = FRecord;
|
|
|
- FRecord = NULL;
|
|
|
- Record->Commit();
|
|
|
- }
|
|
|
-}
|
|
|
-//---------------------------------------------------------------------------
|
|
|
void __fastcall TSessionAction::Rollback(Exception * E)
|
|
|
{
|
|
|
if (FRecord != NULL)
|