Адрес переменной

[Serge_Bliznykov]

выдернул из OPSTRING.PAS

{*********************************************************}
{*                  OPSTRING.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1987, 1992.     *}
{*                 All rights reserved.                  *}
{*********************************************************}

type
  OS =
    record
      O, S : Word;
    end;
  Long =
    record
      LowWord, HighWord : Word;
    end;
const
  Digits : array[0..$F] of Char = '0123456789ABCDEF';


  function HexW(W : Word) : string;
    {-Return hex string for word}
  begin
    HexW[0] := #4;
    HexW[1] := Digits[hi(W) shr 4];
    HexW[2] := Digits[hi(W) and $F];
    HexW[3] := Digits[lo(W) shr 4];
    HexW[4] := Digits[lo(W) and $F];
  end;


  function HexPtr(P : Pointer) : string;
    {-Return hex string for pointer}
  begin
    {HexPtr := HexW(Seg(P^))+':'+HexW(Ofs(P^));}   {!!.20}
    HexPtr := HexW(OS(P).S)+':'+HexW(OS(P).O);     {!!.20}
  end;

Хотя, мне кажется, Вы "странного" хотите...
Ну зачем Вам адрес переменной?
Просто из чистого любопытства?

[_-Re@l-_]

О, отлично, спасибо, тему можно закрыть.

Хотя, мне кажется, Вы "странного" хотите...
Ну зачем Вам адрес переменной?
Просто из чистого любопытства?

Ну как. Просто интересно, по какому адресу находится переменная. Вот просто недавно нашёл в учебнике по С++ как найти адрес переменной. Стало интересно, как это сделать на Паскале.

[Stilet]

Всё равно таким образом адрес переменной не получить, только значение!

Бегом матчасть учить!!! Немедленно!!!
Заклюют тебя за такие вопросы, как пить дать заклюют.

Результатом будет шестнадцатеричное число

16-ричное число к адресу не имеет никакого отношения. абсолютно никакого. просто в истории повелось та что адресация для программистов в связи с удобопонимаемостью пишется в 16-ричном виде, не более.
Переведи integer(P) в HEX и радуйся. Я правда не помню как это в Паскале делается, но перевести можно, и примеры перевода тут уже обсуждались.

[_-Re@l-_]

16-ричное число к адресу не имеет никакого отношения. абсолютно никакого. просто в истории повелось та что адресация для программистов в связи с удобопонимаемостью пишется в 16-ричном виде, не более.
Переведи integer(P) в HEX и радуйся. Я правда не помню как это в Паскале делается, но перевести можно, и примеры перевода тут уже обсуждались.

Это я понял.

Бегом матчасть учить!!! Немедленно!!!
Заклюют тебя за такие вопросы, как пить дать заклюют.

Да при чём здесь матчасть?

[Stilet]

Да при чём здесь матчасть?

А при том что ней написано как работать с указателями в Паскале и что это вообще такое указатели.

[_-Re@l-_]

А при том что ней написано как работать с указателями в Паскале и что это вообще такое указатели.

Stilet, уж поверьте - я знаю что такое указатели и как с ними работать. Вот только не знал как адрес получить.

[Stilet]

я знаю что такое указатели и как с ними работать.

Дружище, когда я изучал указатели по советским книгам это первое что было описано в ней. Именно механизм указателей прям в начале главы и разбирался (жаль книгу не помню...).
Так что считай что это ты основу упустил, потому и говорю - наверстывай.