TMS TAdvOutlooklist (Teil 3)

Nachdem man eine Outlookliste (TAdvOutlookList), siehe Teil 1 und Teil 2 dieser Serie, mit Daten, z.B. aus einer Datenbank gefüllt hat, stellt ich nun die Frage, wie man einzelne Datenzeilen aktualisiert, z.B. wenn jede Zeile einen Datenbankeintrag entspricht und die einzelnen Spalten einzelnen Feldinhalten. Nun hat man diesen Datensatz bearbeitet und man möchte natürlich nicht die ganze Liste wieder einlesen, sondern nur die betreffende Zeile aktualisieren.

Dies ist relativ einfach:

IF ADVOutlookListe.FocusedItem<>Nil then
begin

// ermittelt das aktuelle Item vom Typ PoglItem;
pItem := ADVOutlookListe.FocusedItem;
// ermittelt die Gruppe des aktuellen Eintrags vom Typ TOutlookGroup;
og := AdvOutlookListe.ItemGroup(pItem);
// ermittelt den Index dieser Gruppe innerhlab der Liste vom Typ Integer
groupIndex := AdvOutlookListe.MaListe.GroupIndex(og);
// ermittelt den Indexeintrag des aktuellen Eintrags innerhalb dessen Gruppe, Rückgabewert vom Typ Integer
iIndex := AdvOutlookListe.MaListe.Groups[groupIndex].ItemIndex(pItem);

Nun haben wir alles zusammen um die einzelnen Spalten der aktuelle Zeile anzuprechen und
mit den geänderten Daten zu aktualisieren

AdvOutlookListe.Groups[groupIndex].ChildItem[iIndex].Strings[0] := ‚Mein aktualisierter Text Spalte 1‘;
AdvOutlookListe.Groups[groupIndex].ChildItem[iIndex].Strings[1] := ‚Mein aktualisierter Text Spalte 2‘;
AdvOutlookListe.Groups[groupIndex].ChildItem[iIndex].Strings[2] := ‚Mein aktualisierter Text Spalte 3‘;

usw.

Für das Beispiel müssen Sie folgende Variablen deklarieren:

pItem: PoglItem;
og: TOutlookGroup;
iIndex, groupIndex: Integer;

und benötigen folgende Units im Uses-Abschnitt:

OutLookGroupedList, advoutlooklist

Aktuelle Top Aktionen bei Acer, HP, Lenovo, Bitdefender & Co

Notebook & PC Angebote:
» HP Extra Aktion: 100 Euro Extra sparen bei HP Notebooks ab 999 Euro. Gutscheincode und alle Infos hier im HP Store
» Top bei Otto: Sehr gute HP Notebook Angebote mit Extras wie 4 Jahre Garantie und mehr
» Aktion im Lenovo Store: Bis zu 15% auf ausgewählte und recht gute Artikel (IdeaPad und Yoga Notebooks, Tablet PCs, Gaming Notebooks und PCs)
» Große Rabattaktion bei Acer: bis 21.05.2018 gibt es 15% Rabatt auf ultraschlanke Notebooks der Acer Swift Serie
» Notebooksbilliger.de WM Special:Jede Woche 11 neue Top Angebote>
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick

Aktuelle Bitdefender Aktionen:
» Neue Aktion: Bitdefender 39 Euro Flat mit 5 Geräten
» Bitdefender +1 Jahr dazu-Aktion
» Die neue Bitdefender 40% und mehr Rabatt Aktion
» Top für neue PCs! Bitdefender Internet Security 2018 PC Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95

Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick

Avira Antivirus - Ihr Virenschutz 2018

Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.