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