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