An ListView ein SubItem anhängen

[Chemiker]

Hallo,

habe das ganze noch auf ListView.Item.add umgeschrieben.

Delphi-Quellcode:

for I := 0 to AnzahlDatenSaetze - 1 do
  begin
    MSObj:= TMSV1.Create;
    MSObj.MSDateiName:= MSDateiName;
    MSObj.MSLesen:= i+1;      // Datensatz auslesen
    ListIt:= MSAnzeigenListView.Items.Add();
    ListIt.Caption:= MSObj.MaNr+MSObj.MSNr;
    ListIt.Data:= MSObj;
    ListIt.SubItems.Add(MSObj.MaNr);
    ListIt.SubItems.Add(MSObj.MSNr);
    ListIt.SubItems.Add(MSObj.MaBez);
    ListIt.SubItems.Add(MSObj.MaGruppe1);
    ListIt.ImageIndex:= MSObj.DarstellungsArt;
  end;

und einzelne Einträge so

Delphi-Quellcode:

if (NOT(blIdNrVorhanden)) then
    begin
      MSObj:= TMSV1.Create;     // Obj. für die Liste erzeugen
      MSAnzeigenListView.SmallImages:= ImageList1;
      MSObj.MaNr:= MaNrComboBox3.Text;
      MSObj.MSNr:= MSNrComboBox4.Text;
      MSObj.MABez:= MaBezComboBox1.Text;
      MSObj.MaGruppe1:= MaschinenGruppe1ComboBox2.Text;
      MSObj.DarstellungsArt:= ComboBoxEx1.ItemIndex;

      ListIt:= MSAnzeigenListView.Items.Add;
      ListIt.Caption:= MSObj.MaNr+MSObj.MSNr;
      ListIt.SubItems.Add(MSObj.MaNr);
      ListIt.SubItems.Add(MSObj.MSNr);
      ListIt.SubItems.Add(MSObj.MaBez);
      ListIt.SubItems.Add(MSObj.MaGruppe1);
      ListIt.ImageIndex:= MSObj.DarstellungsArt;
      ListIt.Data:= MSObj;
    end

und es funktioniert ohne Problem, weis auch nicht was ich beim erstenmal Falsch gemacht habe.

Vielen dank für die Tipps.

Bis bald Chemiker