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