uses TPACC20_TLB;
var csTaiPan : ITaiPan;
csTaiPan := CoTaiPan.Create;
csTaiPan := NIL;
var klKatalogListe : Katalogliste;
klKatalogliste := csTaiPan.KatalogListe;
var ktKatalog : Katalog;
klKatalogliste.Item([KatalogIndex]);
sKatalogName := klKatalogliste.Item(iKatalogEintrag).Name;
var krKursreihe : Kursreihe;
| Typ | Parameter |
| ktUnbekannt | $00000000 |
| ktEroeffnung | $00000001 |
| ktHoch | $00000002 |
| ktTief | $00000003 |
| ktVolumen | $00000004 |
| ktSchluss | $00000005 |
| ktEroeffnungML | $00000009 |
| ktHochML | $0000000A |
| ktTiefML | $0000000B |
| ktVolumenML | $0000000C |
| ktSchlussML | $0000000D |
| ktEroeffnungOL | $00000011 |
| ktHochOL | $00000012 |
| ktTiefOL | $00000013 |
| ktVolumenOL | $00000014 |
| ktSchlussOL | $00000015 |
| ptTage | $00000020 |
| ptWochen | $00000040 |
| ptMonate | $00000060 |
| ptQuartale | $00000080 |
| ptJahre | $000000A0 |
krKursreihe := csTaiPan.KursReihe[[WPK],[KursTyp]];
rlKurs := krKursreihe.Item([KursIndex]).Wert;
var dlDividendeListe : DividendeListe;
dlDividendeListe := csTaiPan.DividendeListe[[WPK]];
rlDividende := dlDividendeListe.Item([DividendenIndex]).Wert;