Hallo,
ich habe mehrere ListViews auf einer
VCL-Form (XE5). Für das Befüllen habe ich folgenden Code:
Delphi-Quellcode:
procedure FillListViews(Q: TFDQuery; List: TListView; Fields: String);
...
StringList.DelimitedText := Fields;
while not Q.Eof do
begin
li := List.Items.Add;
li.Caption := Q.FieldByName(StringList[0]).AsString;
for I := 1 to StringList.Count - 1 do
li.SubItems.Add(Q.FieldByName(StringList[I]).AsString);
Q.Next;
end;
...
end;
Das Ganze hat nun als Ergebnis, dass ausschließlich li.Caption angezeigt wird und zwar von den verschiedenen Datensätzen jeweils in der nächsten freien Spalten.
also statt
li.Caption li.SubItems
li.Caption li.SubItems
erhalte ich
li.Caption li.Caption
und die SubItems werden nicht angezeigt. An den Werten liegt es nicht. Was mache ich falsch?