1 578
editací
Změny
Seg
,Vytvorená stránka „Vrací segment určeného objektu. ;Deklarace function Seg(X): Word; ;Režim :Windows, Reálný, Chráněný ;Poznámky :X je jakákoli proměnná nebo identifikáto...“
Vrací segment určeného objektu.
;Deklarace
function Seg(X): Word;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:X je jakákoli proměnná nebo identifikátor procedury či funkce. Výsledek je typu [[Word]] a udává segmentovou část adresy objektu X.
;Viz také
:[[Addr]]
:[[Ofs]]
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.
[[Category:System]]
[[Category:Funkce System]]
;Deklarace
function Seg(X): Word;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:X je jakákoli proměnná nebo identifikátor procedury či funkce. Výsledek je typu [[Word]] a udává segmentovou část adresy objektu X.
;Viz také
:[[Addr]]
:[[Ofs]]
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.
[[Category:System]]
[[Category:Funkce System]]