[dr. F.I.N.]

Сообщение от DJ PhoeniX

Код:

if FindComponent(a) <> nil then
  (FindComponent(a) as TButton).Caption := '1';

DJ PhoeniX, мы уже с тобой общались на эту тему глянь реализацию FindComponent. Я бы не стал искать компонент по имени дважды в одном месте.

Код:

var
x: TButton;
...
begin
  x := FindComponent(a);
  if x <> nil then
  (x as TButton).Caption := '1';
.....

Выигрыш может и небольшой от этого (для человесеского глаза). Но уже снижает нагрузку в 2 раза. А если компонент ооооочень много?
Вобщем это в сторону оптимизации.