DSeg: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
Řádek 51: | Řádek 51: | ||
[[Category:System]] | [[Category:System]] | ||
[[Category:Funkce System]] | [[Category:Funkce System]] | ||
− | [[Category: | + | [[Category:Funkce pro operace s ukazateli a adresami]] |
Verze z 5. 10. 2012, 20:59
Vrací aktuální hodnotu registru DS.
- Deklarace
function DSeg: Word;
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Výsledkem typu Word je segmentová adresa datového segmentu.
- Viz také
- CSeg
Vzorový příklad
{CSeg.PAS} {Vzorový příklad funkce CSeg, DSeg, SSeg, SPtr, Ofs a Seg.} { Pro Windows: } { uses WinCrt; } procedure WriteHexWord(w: Word); const hexChars: array [0..$F] of Char = '0123456789ABCDEF'; begin Write(hexChars[Hi(w) shr 4], hexChars[Hi(w) and $F], hexChars[Lo(w) shr 4], hexChars[Lo(w) and $F]); end; var i: Integer; begin Write('Aktuální kódový segment je $'); WriteHexWord(CSeg); Writeln; Write('Globální datový segment je $'); WriteHexWord(DSeg); Writeln; Write('Segment zásobníku je $'); WriteHexWord(SSeg); Writeln; Write('Ukazatel zásobníku je na $'); WriteHexWord(SPtr); Writeln; Write('i je na ofsetu $'); WriteHexWord(Ofs(i)); Write(' v segmentu $'); WriteHexWord(Seg(i)); end.