Работа со строками, преобразование...

[OmegaBerkut]

Шапка этой темы довольно абстрактна, так как описать всю суть двумя словами я не смог.
Речь идёт не про обычную работу со строками, как с типом данных.
Меня интересует возможность преобразования строки, полученной программным путём в исходный код, и конечно же, это что то вроде " изменения исходного кода программы в процессе её выполнения ".
Соглашусь с тем, что это может оказаться бредом, но в процессе написания мною одной программы, где свойства Name компонентов однотипные - в определённом порядке такие наименования образуют некую последовательность (например, A, B, C и так далее), но это не даёт мне возможности обращаться к именам компонентов, каким либо образом используя любые последовательности, только обычный перебор.

Так вот вопрос в том, можно ли, например в цикле, вычислить, какой компонент будет обработан следующим, взять имя этого компонента в строку, а потом использовать полученную строку, как имя компонента ?

Или же такой вариант, при создании компонентов на форме проекта среда сама даёт последовательность, например Edit1, Edit2, Edit3... Можно ли выделенные циферки как то получить путём вычисления и пришить при обработке компонента ?

И ещё раз повторюсь: Соглашусь с тем, что это может оказаться бредом...

[Аватар]

TComponent.FindComponent - поиск дочернего компонента по имени

[Yurk@]

если я верно понял, то

var
  c : TComponent;
begin
  c := Form1.FindComponent('A');
  if c <> nil then
    if c is TEdit then // к примеру
      (* чё-то делаем *)

[OmegaBerkut]

Сообщение от Yurk@

если я верно понял, то

var
  c : TComponent;
begin
  c := Form1.FindComponent('A');
  if c <> nil then
    if c is TEdit then // к примеру
      (* чё-то делаем *)

А можно кейзом перебирать ?
Просто компонентов ровно столько, сколько клавиш на расширенной клавиатуре, плюс кнопочки, лэйбы и т.п...

[Yurk@]

А можно кейзом перебирать ?

не понял вопроса(

[OmegaBerkut]

Сообщение от Yurk@

не понял вопроса(

Можно ли согласно вашему коду сделать так:

case c of
TEdit: {бла-бла-бла};
{и т.д.}
else; end;

[Yurk@]

))))))
нет
как вариант решения, если я верно уловил ход мыслей, можно всем нужным Edit-ам назначить Tag = 1, всем нужным Label-ам назначить Tag = 2 и т.д. по аналогии.
а далее сделать так:

var
  c : TComponent;
begin
  c := Form1.FindComponent('A');
  if c <> nil then
    case c.Tag of 
      0 : // мы уже знаем что под 0 - Эдиты
      1 : // мы уже знаем что под 1 - Лейбы
      // и т.д.
    else
    end;

[OmegaBerkut]

А можно ли сделать что то из ряда фантистики (для меня, исходя из моих знаний), а именно, выполнить сформированную строку, так код ? Будь то процедура, функция, набор операций, кусок оператора (операции)...

[OmegaBerkut]

Сообщение от Yurk@

))))))
нет
как вариант решения, если я верно уловил ход мыслей, можно всем нужным Edit-ам назначить Tag = 1, всем нужным Label-ам назначить Tag = 2 и т.д. по аналогии.
а далее сделать так:

var
  c : TComponent;
begin
  c := Form1.FindComponent('A');
  if c <> nil then
    case c.Tag of 
      0 : // мы уже знаем что под 0 - Эдиты
      1 : // мы уже знаем что под 1 - Лейбы
      // и т.д.
    else
    end;

Ну, допустим, у меня 104 компонента TImage... Каждому Image свой tag ?
Ничем не отличается от перебора, всё равно, что я запишу

case c.Name of
{пошёл перебор}
else; end;

ну, или если case'ом нельзя - то получаем обычные if'ы

[Yurk@]

в зависимости от задачи
если нужно обработать каждый Image в отдельности - нужно думать как их различать,
а если можно все 104 TImage обработать по одному алгоритму - тогда всем одинаковое свойство Tag