if try edit closed TRxMemoryData in error message display TRxMemoryData.Name

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

components/rx/docs/WhatsNew.eng.txt

@@ -1,3 +1,4 @@
+  + if try edit closed TRxMemoryData in error message display TRxMemoryData.Name
   + fix create resource from XPM image
   + draw shadow on button image in TToolPanel
   - Fix error in TDBComboBox.EditingDone if DataSet = nil

components/rx/docs/WhatsNew.rus.txt

@@ -1,4 +1,5 @@
-  + Исправлено создание ресурсов из XPM файлов
+  + При попытке редактирования закрытого набора данных TRxMemoryData в сообщении об ошибке выдаётся наименование набора данных
+  + Исправлено создание ресурсов из XPM файлов
   + Доработана отрисовка тени у кнопки на TToolPanel
   - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet
 22.05.2008 - версия 2.0.0.136 (svn revision 100)

components/rx/rxmemds.pas

@@ -774,7 +774,7 @@ var
   VarData: Variant;
   PBl:PBoolean;
 begin
-  if not (State in dsWriteModes) then Error(SNotEditing);
+  if not (State in dsWriteModes) then ErrorFmt(SNotEditing, [Name]);
   GetActiveRecBuf(RecBuf);
   with Field do
   begin
@@ -784,7 +784,7 @@ begin
     if Field.FieldNo > 0 then
 {$ENDIF}
     begin
-      if State in [dsCalcFields, dsFilter] then Error(SNotEditing);
+      if State in [dsCalcFields, dsFilter] then ErrorFmt(SNotEditing, [Name]);
       if ReadOnly and not (State in [dsSetKey, dsFilter]) then
         ErrorFmt(SFieldReadOnly, [DisplayName]);
       Validate(Buffer);