Header- und Footer-Text einer TListView per Code..

[exasoft]

Moin,
ich bekomme es einfach nicht hin, den Text eines TListView-Eintrags per Code zu besetzen bzw. auszulesen.

Item ist kein Problem. Das mach ich so:
li.Data['Rufname'] := UniQuery2.FieldByName('rufname').AsString;
li.Data['Ort'] := UniQuery2.FieldByName('ort').AsString;

Übrigens, falls Harry Stahl das liest, wäre doch was für das Buch Danke dafür übrigens! Toll wäre auch, wenn man "lesen" könnte, wie man eine ListView per Code vom Design her bearbeiten (Objekte hinzufügen, Pos. ändern,...) könnte..

Tks vorab, der Ralf wars

[Sherlock]

FMX?

Delphi-Quellcode:

              LItem := aListView.Items.Add;
              LItem.Purpose := TListItemPurpose.Header;
              LItem.Text := 'Header';

Footer analog.

Sherlock

[exasoft]

uups, klar, FMX (deswegen "Cross-Platform-Entwicklung

Dann sind aber meine Einträge weg - also, dann wird nur der Headertext angezeigt.

Muss ich das vielleicht "umschalten":
li.Purpose := TListItemPurpose.Header;
li.Text := 'Header';

li.Purpose := TListItemPurpose.None;
li.Data['Rufname'] := UniQuery2.FieldByName('rufname').AsString;
li.Data['Ort'] := UniQuery2.FieldByName('ort').AsString;

li.Purpose := TListItemPurpose.Footer;
li.Text := 'Footer';
Aber dann kommt nur der Footer-Text.

[Sherlock]

Du mußt für jeden Eintrag in der Listview ein neues Item erzeugen.

Sherlock

[exasoft]

supi, funzt.

Gott, ein Offenbacher hilft nem Frankfurter - wenn das die Jungs hören..

(trotzdem) Danke!

[exasoft]

P.s.: Das war spass!

[Sherlock]

Weiss ich doch.

Ihr bekommt ja ohnehin das Wasser wo wir Offenbacher schon reingemacht haben

Sherlock

[Rollo62]

[OT]
Aha, deswegen sind die Frankfurter so gedopt
[/OT]