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;