• Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Тема: Delphi Xe Скоротити код

Можна якось його скоротити через цикол пустить

Panel[1] := Panel1;
............
Panel[64] := Panel64;

2 Відповідь від Chemist-i

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Delphi Xe Скоротити код

Міжна і через цикол

var
 cmp:TComponent;
 i:Integer;
begin
  for I := 1 to 64 do
  begin
    cmp := FindComponent('Panel'+IntToStr(i));
    Panel[i] := TPanel(cmp);
  end;
end;

Але це погана практика, бо, я так розумію, масив "Panel[]" то буде масив компонентів типу TPanel? краще зразу працюйте через вказівники.



От для наглядності:

var
 cmp:TComponent;
 i:Integer;
begin
  for I := 1 to 64 do
  begin
    cmp := FindComponent('Panel'+IntToStr(i)); //шукаємо компонент з ім'ям Panel + i, і берем його вказівник
    TPanel(cmp).Caption := 'SomeCaption'; //просто вказуємо, з яким об'єктом працюємо.
  end;
end;


Можна все в кучу зібрати (але читати важко буде, а дебажити ще гірше).

TComponent(FindComponent('Імя компонента').Caption := 'SomeCaption';
Подякували: Stanislav Stecenko1

Chemist-i вебсайт

3 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 594
    • Репутація: 13305

Re: Delphi Xe Скоротити код

64 панелі вже легше динамічно створювати...

Подякували: Chemist-i1

koala вебсайт

4 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 079
    • Репутація: 2276

Re: Delphi Xe Скоротити код

Ага, тут явно динаміка проситься: Жизнь и смерть в режиме run-time.