проверка изменения значения поля

← →
DZM (2013-09-05 18:19) [0]

как в событии OnClick кнопки узнать, изменялось ли значение одного из полей в промежутке между DataSetX.Edit и DataSetX.Post;

procedure TForm1.ButtonXClick(Sender: TObject); begin if Если значение поля FieldX изменялось then FieldX.AsString := CheckFieldXValue(FieldX.AsString); DataSetX.Post; end;

← →
Jeer © (2013-09-05 18:21) [1]

Нельзя отдавать на редактирование одно и то же поле (запись) разным юзерам.

← →
Плохиш © (2013-09-05 18:30) [2]

Die Eigenschaft NewValue repräsentiert den aktuellen Wert der Feldkomponente einschließlich der anstehenden zwischengespeicherten Aktualisierungen. Delphi-Syntax: property NewValue: Variant; C++ Syntax: __property System::Variant NewValue = {read=GetNewValue, write=SetNewValue}; Beschreibung Mit NewValue können Sie den aktuellen Wert eines Feldes ermitteln oder ändern, während mehrere Aktualisierungen eingetragen werden. Wenn durch den aktuellen Feldwert beim Eintragen der Aktualisierungen ein Problem (z.B. ein Indexfehler) verursacht wird, erzeugen Provider-Komponenten das Ereignis OnUpdateError. Entsprechend generieren Provider das Ereignis OnUpdateError, wenn beim Eintragen der Datensätze von einem Client Probleme auftreten. Die Client-Datenmengen erzeugen das Ereignis OnReconcileError, wenn sie durch den Provider von Problemen benachrichtigt werden. Weisen Sie zur Korrektur des Problems in der Ereignisbehandlungsroutine NewValue einen neuen Wert zu. Die Werte von NewValue und Value sind identisch, wenn während des Eintragens von Datensätzen keine Fehler auftreten. Wird NewValue in einer OnUpdateError-, OnUpdateRecord- oder OnReconcileError-Ereignisbehandlungsroutine zugewiesen, unterscheiden sich die Werte NewValue und Value, bis die Datensätze vollständig in der zugrunde liegenden Datenbanktabelle eingetragen sind. Hinweis: Die Eigenschaft NewValue kann nur verwendet werden, wenn mit der Komponente TClientDataSet auf die Daten zugegriffen wird oder zwischengespeicherte Aktualisierungen genutzt werden.

← →
DZM (2013-09-05 18:38) [3]

Так пытался проверять:

if DataSetX.FieldByName(const_field_x).NewValue <> DataSetX.FieldByName(const_field_x).OldValue then MessageBox(0, "was changed!", "", 0) else MessageBox(0, "wasn"t changed!!", "", 0);

но почему-то всегда NewValue = OldValue

← →
DZM (2013-09-05 18:40) [4]

оба = NULL

в 17-ой строке ошибка

проверка изменения значения поля Найти похожие ветки