addr.pas

Пример программы для функции Addr.

Код примера
{Addr.PAS}
 
{ Пример программы для функции Addr }
 
Var P : Pointer;
 
Begin
 P:=Addr(P); { Указывает сам на себя !}
End.
 

Скачать addr.pas