Двунаправленный список

[Chudo4258]

Я создал двунаправленый список.

Type BT = integer;
     U = ^Zveno;
       Zveno = Record
       Next: U;
       Pred: U;
       Inf : BT;
      End;

var S:U;

Мне нужно вывести на экран значения указателей: S^.Next и S^.Pred.

Пробывал так

memo1.Lines.Add(IntToStr(S^.Next)+'   '+IntToStr(S^.Pred))

но ничего не получеется.

[Sazary]

Мне нужно вывести на экран значения указателей:

Значения? Так может так тогда:

memo1.Lines.Add(IntToStr(S^.Next.inf)+'   '+IntToStr(S^.Pred.inf))

?

[Chudo4258]

Sazary, нет, не так.
нужно вывести S^.Next и S^.Pred, это некоторые 4-х значные числа, если я не ошибаюсь.

В паскале мне сказали что можны вывести вот так

Writeln(S^.Next);
Writeln(S^.Pred)

но сам я не пробывал.

А мне нужно сделать это в Delphi.

[Sazary]

S^.Next и S^.Pred - указатели на запись. Это не числа. А вот сама запись содержит поле Inf : BT;. Его-то, видимо, и надо вывести.

[Chudo4258]

нет, мне не надо Inf выводить.
S^.Next - некотороя 4-х битовая переменная, мне надо вывести её значение.

[Serge_Bliznykov]

не проблема.
например, так можно:

var
  PointerForPrint : Pointer;
  UPointer : LongWord absolute PointerForPrint;
begin
//  ShowMessage(IntToStr(sizeOf(PointerForPrint)));
  PointerForPrint := S^.Next;
  ShowMessage('Десятичное значение адреса (указателя)= '+IntToStr(UPointer));

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

[Chudo4258]

Спасибо Serge_Bliznykov.

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

оно мне ничего не даст, это просто в условии задачи было сказано.