Память, выделяемая под приложение.

[Altera]

Привет всем!
Допустим имеется форма form1: tForm1 и на ней button1: tButton. Вдруг надо передать указатель на button1 в процедуру:

procedure changeCaption(const p: pointer);
var
b: tButton;
begin
   b := tButton(p^);
   b.Caption := 'Кэпшен изменён';
end;

Будит ли выделяться памать и под b: tButton? или только под button1?
А если написать перед строчкой b := tButton(p^); b := tButton.create(application); ???

А если будит так:

procedure changeCaption;
var
b: tButton;
begin
   b := button1;
   b.Caption := 'Кэпшен изменён';
end;

???

[BOBAH13]

Боже мой Чтот вы накрутили до безумия.

первый вариант...

procedure changeCaption(p: pointer);
var
b: tButton;
begin
   b := tButton(p);
   b.Caption := 'Кэпшен изменён';
end;

и почему сразу не передавать не Pointer а TButton ? и вкратце TButton это всего ссылка (адрес) на класс данный. так что такой же как и Pointer, String и т.п.... простая абстракция для нас программистов так что делаем выводы...

[0nni]

код неправильный, tButton это и есть указатель делайте так

procedure changeCaption(const p: TObject);
var
b: tButton;
begin
   b := tButton(p);
   b.Caption := 'Кэпшен изменён';
end;

А то у вас получается указатель на указатель... лучше =\
Память конечно никуда выделяться не будет.

если вы напишите
b := tButton.create(application);
но получите новый объект, память под который конечно будет выделяться.

>>>А если будит так:
будет ошибка, b не указывает ни на какой класс.

Оъяснил как мог.

[mihali4]

А почему не по рабоче-крестьянски:

procedure changeCaption(Sender: TObject);
begin
if Sender is TButton then
(Sender as TButton).Caption := 'Кэпшен изменён';
end;

[Altera]

Господи Боже мой! Какого чёрта вы тут наплели? Я ведь специально так сделал. Почему не отвечаете по сути, конечно mihali4, я-бы уж догадался-бы так сделать при возможность. Где я щас реальную ситуацию искать буду. Придумал что-то. Отвечайте именно на то, что спрашивают...