====== Bearbeiten einer im Grid angezeigten Tabelle mit Hilfe einer Kopie ======

<code>
  lDSLive := hsDS(dbA5, lSQL);

  var lConn := TCommon.CloneUniConnection(dbModule);
  hsDBCmd(dbModule).UpdateSetI('persons', 'active', 0, 'True').Execute;
  lDSLocal := hsDSTable(lConn, 'persons');

  lDSLive.ForEach(procedure(const mRec: IhsDSRecord)
    begin
      lDSLocal.LocateEditAppend('a5_apid', mRec.AsI('a5_apid'));
      mRec.CopyRecordValuesTo(lDSLocal.DS);
      lDSLocal
        .SetI('active', 1)
        .Post;
    end);

  hsDS(DataSource1).Refresh;
</code>