Tweet
Hallo,
Wenn ich ein Objekt von Tobject habe, kann ich dann auf die einzelnen eigenschaften per index zugreifen.
wenn ja wie?
Beispielobjekt:
<pre>
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;vLagerb estand,vMenge:integer;vME:String;vVKNetto,vVKBrutt o
ouble;vlieferantnr:String);
public procedure ArtikelLesen(var Artikel : TWarenkorbArtikel);
public procedure WarenkorbArtikelInListview(Listview:Tlistview; Artikel: TWarenkorbArtikel);
end;
</pre>
Gruß
Markus
Wenn ich ein Objekt von Tobject habe, kann ich dann auf die einzelnen eigenschaften per index zugreifen.
wenn ja wie?
Beispielobjekt:
<pre>
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;vLagerb estand,vMenge:integer;vME:String;vVKNetto,vVKBrutt o
ouble;vlieferantnr:String);public procedure ArtikelLesen(var Artikel : TWarenkorbArtikel);
public procedure WarenkorbArtikelInListview(Listview:Tlistview; Artikel: TWarenkorbArtikel);
end;
</pre>
Gruß
Markus
Comment