Ptr: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Unit System) |
|||
| Řádek 34: | Řádek 34: | ||
[[Category:System]] | [[Category:System]] | ||
[[Category:Funkce System]] | [[Category:Funkce System]] | ||
| + | [[Category:Fukce pro operace s ukazateli a adresami]] | ||
Verze z 5. 10. 2012, 20:57
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ý
- 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.
