Ptr: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
Řádek 34: Řádek 34:
 
[[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, 20:59

Převede segmentovou bázovou a offsetovou adresu na hodnotu ukazatelového typu.

Deklarace
function Ptr(Seg, Ofs: Word): Pointer;
Režim
Windows, Reálný, Chráněný
Návratová hodnota
Ukazatel na adresu danou Seg a Ofs.
Poznámky
Seg a Ofs jsou výrazy typu Word. Výsledkem je ukazatel, který ukazuje na adresu, danou parametry Seg a Ofs. Stejně jako nil je výsledek Ptr pro přiřazování kompatibilní se všemi typy ukazatelů.
Výsledek lze upravit nepřímým odkazem (dereference) a přetypováním (typecast):
if Byte(Ptr(Seg0040, $49)^) = 7 then
   Writeln('Video mode = mono');
Viz také
Addr


Vzorový příklad

{Ptr.PAS}
{Vzorový příklad pro funkci Ptr.}
var P: ^Byte;
begin
  P := Ptr($40, $49);
  Writeln('Aktuálním video;Režimem je ', P^);
end.