TLiseView frage...

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  NewItem: TlistItem;
begin
  NewItem := Listview1.Items.Add;
  NewItem.Caption := '1,1';
  NewItem.SubItems.Add('1,2');
  NewItem.SubItems.Add('1,3');

  NewItem := Listview1.Items.Add;
  NewItem.Caption := '2,1';
  NewItem.SubItems.Add('2,2');
  NewItem.SubItems.Add('2,3');
end;