CSeg: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
(Není zobrazena jedna mezilehlá verze od stejného uživatele.)
Řádek 13: Řádek 13:
 
:[[DSeg]]
 
:[[DSeg]]
  
:[[Sseg]]
+
:[[SSeg]]
  
  
Řádek 51: Řádek 51:
 
[[Category:System]]
 
[[Category:System]]
 
[[Category:Funkce System]]
 
[[Category:Funkce System]]
[[Category:Fukce pro operace s ukazateli a adresami]]
+
[[Category:Funkce pro operace s ukazateli a adresami]]

Aktuální verze z 5. 10. 2012, 21:41

Vrací aktuální hodnotu registru CS.

Deklarace
function CSeg: Word;
Režim
Windows, Reálný, Chráněný
Poznámky
Výsledkem typu Word je segmentová adresa kódového segmentu, ze kterého byla funkce CSeg zavolána.
Viz také
DSeg
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.