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
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
Comment