Otevřít hlavní menu

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
SSeg


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.