Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#4

Re: An ListView ein SubItem anhängen

  Alt 13. Jun 2007, 10:00
Hallo,

Zitat von Chemiker:
... mir ist klar das ich auch mit TListItem arbeiten könnte und die Methode ListView.Items.Add; verwenden könnte, dies hat aber den Nachteil das ich die Daten ins Object kopieren müsste. ...
das verstehe ich nicht. Die Methode Add() von TListItems dient genau zur Ermittlung des neuen Index und du kopierst doch so oder so alles in dein MSObj:

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;

      with MSAnzeigenListView.Items.Add do
      begin
        Caption := MSObj.MaNr + MSObj.MSNr;
        Data := MSObj;
        SubItems.Add('...');
      end;
Grüße vom marabu
  Mit Zitat antworten Zitat