fix change trxdbcombobbox with empti field

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

components/rx/languages/rxdconst.es.po

@@ -41,6 +41,10 @@ msgstr "Base de Dato bloqueada: %s"
 msgid "SDataSourceFixed"
 msgstr "SFuenteDatosFija"
 
+#: rxdconst.sdbcomboboxfieldnotassigned
+msgid "%s:TDBComboBox - DataField not assigned"
+msgstr ""
+
 #: rxdconst.sdbexceptcaption
 msgid "Error in DB engine"
 msgstr "Error in DB Motor"

components/rx/languages/rxdconst.po

@@ -41,6 +41,10 @@ msgstr ""
 msgid "SDataSourceFixed"
 msgstr ""
 
+#: rxdconst.sdbcomboboxfieldnotassigned
+msgid "%s:TDBComboBox - DataField not assigned"
+msgstr ""
+
 #: rxdconst.sdbexceptcaption
 msgid "Error in DB engine"
 msgstr ""

components/rx/languages/rxdconst.ru.po

@@ -41,6 +41,10 @@ msgstr "База данных блокирована: %s"
 msgid "SDataSourceFixed"
 msgstr ""
 
+#: rxdconst.sdbcomboboxfieldnotassigned
+msgid "%s:TDBComboBox - DataField not assigned"
+msgstr ""
+
 #: rxdconst.sdbexceptcaption
 msgid "Error in DB engine"
 msgstr "Ошибка ядры БД"

components/rx/rxdbcomb.pas

@@ -36,7 +36,7 @@ unit rxdbcomb;
 interface
 
 uses LCLType, LCLProc, LCLIntf, LMessages, Menus, Graphics, Classes, Controls,
-  DB, StdCtrls, DbCtrls;
+  sysutils, DB, StdCtrls, DbCtrls;
 
 type
 
@@ -167,7 +167,7 @@ type
 
 implementation
 
-uses DBUtils;
+uses DBUtils, rxdconst;
 
 { TCustomDBComboBox }
 
@@ -221,7 +221,10 @@ end;
 
 procedure TCustomDBComboBox.UpdateData(Sender: TObject);
 begin
-  FDataLink.Field.AsString := ComboText;
+  if Assigned(FDataLink.Field) then
+    FDataLink.Field.AsString := ComboText
+  else
+    raise Exception.CreateFmt(SDBComboBoxFieldNotAssigned, [Name]);
 end;
 
 procedure TCustomDBComboBox.SetComboText(const Value: string);

components/rx/rxdconst.pas

@@ -85,6 +85,8 @@ resourcestring
   SUnlockHint              = 'Enter you password';
   SDeleteMultipleRecords   = 'Delete all selected records?';
 
+  SDBComboBoxFieldNotAssigned        = '%s:TDBComboBox - DataField not assigned';
+
   SPropDefByLookup         = 'PropDefByLookup';
   SDataSourceFixed         = 'SDataSourceFixed';
   SCircularDataLink        = 'SCircularDataLink';