Hi Lombi.
Normalerweise lässt man dem Benutzer die Möglichkeit einen Datensatz unverändert neu zu speichern. In bestimmten Programmen wird das sogar als feature angesehen, aber egal. Wenn du den timestamp eines record nur dann aktualisieren willst, wenn sich auch eine inhaltliche Änderung ergeben hat, dann musst du die Feldwerte zu Beginn eines Edit-Vorganges zwischenspeichern (Markus hat es schon geschrieben) und beim Abspeichern mit den dann aktuellen Feldwerten vergleichen.
Nehmen wir an, dass nur ein Dataset deiner Form sich zu jedem Zeitpunkt im Edit-Modus befindet, dann könnte man das so angehen:
Delphi-Quellcode:
type
TDemoForm = class(TForm)
private
OldValues: array of Variant;
end;
procedure TDemoForm.TableAfterEdit(DataSet: TDataSet);
var
i: Integer;
begin
with DataSet do
begin
SetLength(OldValues, FieldCount);
for i := Low(OldValues) to High(OldValues) do
OldValues[i] := Fields[i].Value;
end;
end;
procedure TDemoForm.TableBeforePost(DataSet: TDataSet);
var
i: Integer;
changed: Boolean;
begin
changed := false;
with DataSet do
begin
for i := Low(OldValues) to High(OldValues) do
changed := changed or (OldValues[i] = Fields[i].Value);
end;
if changed then
Dataset['UPDATED'] := Now;
end;
procedure TDemoForm.TableAfterCancel(DataSet: TDataSet);
begin
SetLength(OldValues, 0);
end;
Getippt - und nicht getestet. Ich hoffe, dass du den Code nachvollziehen kannst und die dahinter steckende Idee erkennst.
Freundliche Grüße vom marabu