tlist.item anderen wert zuweisen

[markus lemcke]

Tach,

bin gerade an einem problem mit meinem warenkorb!
hier nochmal die objekte:

<pre>
Type
TWarenkorb = class(Tlist)
private GesamtSumme : double;
public procedure NeuerArtikel(Eintrag:TWarenkorbArtikel);
public procedure ArtikelLoeschen(Nummer:Integer);
public procedure SummeBerechnen;
public function SummeAusgeben : double;
destructor Destroy; override;
end;

Type
TWarenkorbArtikel = class(Tobject)
private Artikelnr : String;
private Bezeichnung1 : String;
private Bezeichnung2 : String;
private Lagerbestand : integer;
private Menge : integer;
private Mengeneinheit : String;
private VKNetto : double;
private VKBrutto : double;
private Lieferantenr : String;
public procedure ArtikelSchreiben(vArtnr,vBez1,vBez2:String; Lagerbestand,vMenge:integer;vME
:String;vVKNetto,vVKBruttoouble;vlieferantnr:Strin g);
public procedure ArtikelLesen(var Artikel : TWarenkorbArtikel);
public procedure WarenkorbArtikelInListview(Listview:Tlistview; Artikel: TWarenkorbArtikel);
end;
</pre>

ich möchte nun in einem bestehenden artikel die menge ändern und habe es so probiert:

<pre>
WarenkorbArtikel := TWarenkorbArtikel.create;
WarenkorbArtikel.ArtikelSchreiben(ListViewWarenkor bBikeKat.items[i].Caption,//Nummer
ListViewWarenkorbBikeKat.items[i].SubItems[0],//Bez1
ListViewWarenkorbBikeKat.items[i].SubItems[1],//Bez2
Strtoint(ListViewWarenkorbBikeKat.items[i].SubItems[2]), //Lagerbest
Strtoint(ListViewWarenkorbBikeKat.items[i].SubItems[3]), //Menge
ListViewWarenkorbBikeKat.items[i].SubItems[4], //Einheit
Strtofloat(ListViewWarenkorbBikeKat.items[i].SubItems[5]), //VKNetto
Strtofloat(ListViewWarenkorbBikeKat.items[i].SubItems[6]), //VKBRutto
ListViewWarenkorbBikeKat.items[i].SubItems[7]); //Lieferantennr
<b> warenkorb.Items[i] := WarenkorbArtikel;</b>
</pre>

kommt aber ne schutzverletzung! warum?

gruß

markus

p.s. schaltet mal jemand bitte die "heizuung" ab

[Dietmar Elsässer]

Wo ist
Warenkorb:= TWarenkorb.create;
Warenkorb.insert(i, warenkorb);
oder Warenkorb.add(warenkorb);

P.S.: Bei mir geht die "Heizung" auch nicht abschalten. Ich vermute den Bug im Globalworkarea

[Dietmar Elsässer]

Ich meinte:
Warenkorb:= TWarenkorb.create;
Warenkorb.insert(i, WarenkorbArtikel);
oder Warenkorb.add(WarenkorbArtikel)