StringList in ListView anzeigen

[APP]

Hallo DelphiUser7,

das mußt Du leider mit der Hand machen:

Delphi-Quellcode:

VAR
   sl                              : TStringList;
   aListItem                       : TListItem;
   aNewColumn                      : TListColumn;
   i                               : Integer;
BEGIN
   sl := TStringList.Create;
   TRY
      sl.Add('a');
      sl.Add('b');
      sl.Add('c');
      ListView1.ViewStyle := vsReport;
      aNewColumn := ListView1.Columns.Add;
      aNewColumn.Caption := 'Überschrift';
      FOR i := 0 TO sl.Count - 1 DO
         BEGIN
            aListItem := ListView1.Items.Add;
            aListItem.Caption := sl.Strings[i];
         END;
   FINALLY
      sl.free;
   END;