Fix error in TDBComboBox.EditingDone if DataSet = nil

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@455 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/docs/WhatsNew.eng.txt

@@ -1,3 +1,4 @@
+  - Fix error in TDBComboBox.EditingDone if DataSet = nil
 22.05.2008 - version 2.0.0.136 (svn revision 100)
   + In TRxCustomDBLookupCombo add check for CircularDataLink
   + in TRxCustomDBLookupCombo accelerated drawing data

components/rx/docs/WhatsNew.rus.txt

@@ -1,4 +1,5 @@
-22.05.2008 - версия 2.0.0.136 (svn revision 100)
+  - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet
+22.05.2008 - версия 2.0.0.136 (svn revision 100)
   + У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
   + У объекта TRxCustomDBLookupCombo ускорена отрисовка данных
   - У объекта TRxCustomDBLookupCombo исправлен выбор первой записи из справочника при

components/rx/rxdbcomb.pas

@@ -363,15 +363,17 @@ end;
 
 procedure TCustomDBComboBox.EditingDone;
 begin
-  if not(FDataLink.DataSet.State in [dsinsert,dsedit]) then exit;
+  if Assigned(FDataLink.DataSet) and (FDataLink.DataSet.State in [dsinsert,dsedit]) then
-  try
+  begin
-    FDataLink.UpdateRecord;
+    try
-  except
+      FDataLink.UpdateRecord;
-    SelectAll;
+    except
-    if CanFocus then SetFocus;
+      SelectAll;
-    raise;
+      if CanFocus then SetFocus;
+      raise;
+    end;
+    inherited EditingDone;
   end;
-  inherited EditingDone;
 end;