https://wiki.hschmid-it.de/ 2026-05-07T21:11:17+00:00 https://wiki.hschmid-it.de/ https://wiki.hschmid-it.de/lib/exe/fetch.php?media=wiki:logo.png text/html 2026-04-28T07:12:37+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.hschmid-it.de/doku.php?id=delphi:patterns:edittablecopy&rev=1777360357&do=diff Bearbeiten einer im Grid angezeigten Tabelle mit Hilfe einer Kopie 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; … text/html 2026-05-03T08:08:58+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.hschmid-it.de/doku.php?id=delphi:patterns:initstringarray&rev=1777795738&do=diff Initialisieren eines String-Arrays const cSpecialGroups: TArray<string> = ['KSH_Verwaltung', 'KSH_Lehrb', 'KSH_Students', 'KSH_Stiftung', 'KSH_KHG', 'KSH_Tutoren', 'KSH_TestHS', 'KSH_Emeriti', 'KSH_NonActive_temp_Mailbox'];