Pointer

[Different]

Здравствуйте.

Мне необходимо передать компонент процедуре.
Я вычитал, что Delphi работает не с самими компонентами, а с их указателями.

Вот и интересуюсь, какой из вариантов будет быстрее работать:

procedure proc(btn: Tbutton);
begin
btn.caption := 'asdasd';
end;

или же

procedure proc(btn: Pointer);
begin
TButton(btn^).caption := 'asdasd';
end;

[Пепел Феникса]

по сути одно и тоже написано.

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

[Sibedir]

Я вычитал, что Delphi работает не с самими компонентами, а с их указателями.

Это не только с компонентами, но и со всеми объектами.

какой из вариантов будет быстрее работать

Вариант 2 дольше. Ибо перед вызовом нужно получить указатель на объект, а в самой процедуре разименовать указатель.

Вот, для осмысления:

  proc1 (Button2);
  proc2 (@Button2);
  proc3 (Pointer (Button2));

То же на асме:

Unit1.pas.44: proc1 (Button2);
mov eax,[ebx+$000002fc]
call proc1

Unit1.pas.45: proc2 (@Button2);
lea eax,[ebx+$000002fc] // на сколько я понимаю, это дольше чем mov
call proc2

Unit1.pas.46: proc3 (Pointer (Button2));
mov eax,[ebx+$000002fc]
call proc3

------------------------------------------------------------------------

procedure proc1(btn: Tbutton);
begin
  btn.caption := 'asdasd';
end;

Unit1.pas.27: btn.caption := 'asdasd';
mov edx,$0044d964
call TControl.SetText

------------------------------------------------------------------------

procedure proc2(btn: Pointer);
begin
  TButton(btn^).caption := 'asdasd';
end;

Unit1.pas.32: TButton(btn^).caption := 'asdasd';
mov edx,$0044d984
mov eax,[eax] // дополнительная операция
call TControl.SetText

------------------------------------------------------------------------

procedure proc3(btn: Pointer);
begin
  TButton(btn).caption := 'asdasd';
end;

Unit1.pas.37: TButton(btn).caption := 'asdasd';
mov edx,$0044d9a0
call TControl.SetText

------------------------------------------------------------------------

Раз экземпляр уже и есть указатель, то и не нужно на него указатель получать.

[veniside]

lea eax,[ebx+$000002fc] // на сколько я понимаю, это дольше чем mov

неа, это намного быстрее mov, т.к. нет обращения к памяти. Команда lea эквиалентна:

eax := ebx+$000002fc

т.е. простое сложение значения регистра и константы.
Естественно, это выливается потом в:

mov eax,[eax] // дополнительная операция

т.е. все варианты примерно одинаковы, а второй ещё и позволяет затереть указатель, хранимый в Button2, при желании )

[Пепел Феникса]

т.е. все варианты примерно одинаковы, а второй ещё и позволяет затереть указатель, хранимый в Button2, при желании )

а var-параметры для кого?

[veniside]

для тех, кто пропустил тему про указатели в школе? )

[GunSmoker]

Может, будет интересно: http://www.transl-gunsmoker.ru/2009/09/blog-post.html