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

Werbung

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

Angebote bei Acer
» Großer Acer Herbst Sale:Bis zu 200 Euro Rabatt auf viele Acer Notebooks, Convertibles, Gaming Notebooks und PC, Monitore und mehr bei den Acer Herbst Angeboten bis 02.10.2018


Angebote bei HP
» HP Back To School 2018: Viele HP Notebooks, Convertibles und Drucker im Angebot


Angebote bei Lenovo
» Lenovo Top Wochenangebote: Heiße ThinkPad und IdeaPad Wochenangebote mit großer Auswahl und dicken Rabatten


Weitere Möglichkeiten
» Top bei Otto: Sehr gute HP Notebook Angebote, teils mit Extras wie 4 Jahre Garantie und mehr
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick


Aktuelle Bitdefender Aktionen:
» Top Angebot: Bitdefender "The Darkest Minds Promotion" mit kostenlosem Gewinnspiel und Angebot Total Security 2019 MultiDevice nur 39,99€ statt 79,99 Euro (50% Rabatt)
» Bitdefender Sommer-Aktion Version 2019 mit 15 Euro Rabatt auf Bitdefender Antivirus Plus 2019 (3 Geräte und 1 Jahr), 30 Euro Rabatt auf Bitdefender Internet Security 2019 (3 Geräte und 1 Jahr) und 40 Euro Rabatt auf Bitdefender Total Security Multi Device 2019 (5 Geräte und 1 Jahr)
» Bitdefender +1 Jahr dazu-Aktion
» Top für neue PCs! Bitdefender AntiVirus Plus Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95
Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick

Werbung

Notebooksbilliger: Leistungsstarke PCs


Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.