ListView Zeilen werden als Spalten angezeigt

[nakaramia]

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?

[DeddyH]

ViewStyle ist vsReport?

[nakaramia]

Vielen Dank, das war's schon.