[-=Slayer=-]

Два года с Delphi и до сих пор не использовал указатели в программах, не ощущая их необходимости. Только сейчас решил восполнить пробелы в образовании. Купил книгу Меженного и столкнулся с проблемой в компиляции примера из его книги

program Project1;

{$APPTYPE CONSOLE}

uses
Windows,Classes,SysUtils,Dialogs;

var
px,py: pointer;
begin
GetMem(px,SizeOf(char));
GetMem(py,SizeOf(integer));

px^:='A';
py^:=7;

//ShowMessage(Char(px));

FreeMem(px,SizeOf(char));
FreeMem(py,SizeOf(integer));

WriteLn;
ReadLn;
end.

Получаю ошибку на строке px^:='A'; и следущей

[DCC Error] Project1.dpr(19): E2015 Operator not applicable to this operand type

Что-то с типами данных. Не получается просто так присваивать нетипизированным переменным значения, хотя память выделяется верно. Пробовал в dev-pascal. Получил примерно то же самое. Можно ли присваивать нетипизированным переменным значения напрямую?

[AlexSku]

Вот в таком варианте работает:

Код:

var
  px: PChar;
  py: PInt;
begin
  GetMem(px,SizeOf(char));
  GetMem(py,SizeOf(integer));

  px^:='A';
  py^:=7;

  ShowMessage(px^);

  FreeMem(px,SizeOf(char));
  FreeMem(py,SizeOf(integer));
end;

Исправил также строку "ShowMessage"

Вот так тоже работает (удалил FreeMem, т.к. это вызывает ошибку):

Код:

var
  px: pointer;
  AChar: Byte;
begin
  GetMem(px,SizeOf(char));

  AChar:= Ord('A');
  px:=@AChar;

  ShowMessage(Char(px^));
end;

[-=Slayer=-]

Да, присваивание адресов переменных работает.
px: PChar - это уже типизированные указатели почти что получаются и удобнее тогда использовать их так: px: ^char; И в таком случае это даже рациональнее, так как вместо GetMem(px,SizeOf(Char)) нужно воспользоваться конструкцией New(px);

Пробовал в Pascal, тоже не работает этот пример. Странно, что он попал в учебник, на котором написано, что это самоучитель №1, хотя по содержанию он в целом действительно неплох.