[0nni]

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

почему ?

Код:

program Project3;

{$APPTYPE CONSOLE}

uses
  Windows;

function GetPointerA : PInteger;
var
  a : integer;
begin
  a := 10;
  result := @a;
end;

var
  PointerA : PInteger;

begin
  PointerA := GetPointerA;
  MessageBeep(0);
  Writeln(PointerA^);
  ReadLn;
end.

Попробуй угадать что за число окажется в консоли. А теперь откомпилируй и убедись что не угадал. А теперь убери MessageBeep(0) - черная магия?

По поводу объектов - объект это и есть указатель.

Код:

procedure SetButtonCaption(btn : TButton);
begin
  btn.Caption := 'Hello world!';
begin;