не могу понять пример работы с указателем

[Иаковъ]

Друзья, пытаюсь разобраться с указателями и не могу понять пару моментов.
Есть пример:

program InterpretMem;
{$APPTYPE CONSOLE}
var
1) PI: PInteger;
2) PC: PAnsiChar;
begin
3) New(PI);
4) PI^ := $006D654D; // Байты $4D $65 $6D $00
5) PC := PAnsiChar(PI); // Теперь оба указателя указывают на одно место в памяти
6) Writeln(PI^); // Печатаем число.
7) Writeln(PC^); // Печатаем один символ ($4D).
8) Writeln(PC); // Печатаем строку в стиле C (байты $4D $65 $6D $00 интерпретируются как PChar)
Dispose(PI);
Readln;
end.

вопрос 1.
Мы объявили два указателя. Потом говорим в 5) PC := PAnsiChar(PI), что в моем понимании означает присваивание PC адреса того же участка памяти, куда указывает PI. Только PC указывает на символьные данные, а PI на целочисленные. Не могу понять совершенно строчку 8, ведь по идее в PC находится только адрес участка памяти, почему выводится Mem? Мы же должны разименовать PC, чтобы получить значение по этому адресу, но даже сделав это в 7) мы получим только вывод 'М'. Почему выводится значение, если вроде как по логике должен быть максимум адрес?

вопрос 2.
строка: PC: PAnsiChar, ведь это же равносильно PC: ^AnsiChar?
Почему тогда возникает ошибка если везде заменить PAnsiChar на ^AnsiChar?

[Stilet]

ведь по идее

Нет. write распознает типы. Если PC: PAnsiChar то эта процедура, автоматически понимает что нужно взять данные по указателю и распечатать.

тогда возникает ошибка если везде заменить PAnsiChar на ^AnsiChar?

Какая ошибка? Предлагаешь включать телепаторы?

[Иаковъ]

вот какие ошибки компилятора возникают
var
PI: PInteger;
PC:^AnsiChar;
begin
New(PI);
PI^ := $006D654D; // Байты $4D $65 $6D $00
PC := ^AnsiChar(PI); // [dcc32 Error] Project1.dpr(16): E2010 Incompatible types: 'Pointer' and 'Char'
Writeln(PI^); // Печатаем число.
Writeln(PC^); // Печатаем один символ ($4D).
Writeln(PC); // [dcc32 Error] Project1.dpr(19): E2054 Illegal type in Write/Writeln statement
Dispose(PI);

[Stilet]

Incompatible types: 'Pointer' and 'Char'

А так никто не присваивает )
Приведение типа по другому нужно делать: PC:=PAnsichar(pi)
Только это глупо, потому как типы разные.

Illegal type in Write/Writeln statement

Тут свои особенности. Нужно приводить к типу PAnsiChar в таком случае. Впрочем по второй ошибке я точно не скажу. Никогда writeln не использую с указателями.

[phomm]

Сообщение от Иаковъ

  Writeln(PC);          // [dcc32 Error] Project1.dpr(19): E2054 Illegal type in Write/Writeln statement

Если надо напечатать адрес, куда указывает данный указатель, то можно так Writeln(Integer(PC)); если особо хочется, то ещё и отформатировать в хекс-число

[Иаковъ]

Сообщение от Stilet

А так никто не присваивает )
Приведение типа по другому нужно делать: PC:=PAnsichar(pi)

если изменить только объявление переменной, то тоже возникает ошибка.
var
PI: PInteger;
PC: ^AnsiChar;// изменил PC:PAnsiChar
begin
New(PI);
PI^ := $006D654D; // Байты $4D $65 $6D $00
PC := PAnsiChar(PI);//[dcc32 Error] Project1.dpr(16): E2010 Incompatible types: 'Pointer' and 'PAnsiChar'

phomm, увидел мой немой вопрос . Я как раз параллельно пытался правильно разузнать адрес ячейки

[DiemonStar]

Illegal type in Write/Writeln statement

а чего вы хотели? по-сути это несколько overload-процедур с заранее прописанными параметрами. Т.е. вариант с PAnsiChar присутствует, а вариант с ^AnsiChar - нет. Вот и выдает ошибку.

если хотите получить значение указателя, то можно попробовать так:

Var 
  P : PAnsiChar;
  A : LongInt absolute P;

или воспользоваться массивом байтов...