Обращение к свойству компонента не зная его имени

[NeVerSS]

Примерно такая ситуация - есть n компонентов TImage.Статических.Хочу обратиться к свойству tag рандомно выбранного компонента.Возможно такое?(можно хранить их в массиве конечно и создавать динамически но мне желательно без этого)...

[maLoy*508]

...
var
  RaspMatF: TRaspMatF;
  cbet : array of integer;
.....
for i := 0 to RaspMatF.ComponentCount - 1 do // перебираем на форме все компоненты
    begin
     if (RaspMatF.Components[i] is TCheckBox) and TCheckBox(RaspMatF.Components[i]).Checked then // и если выбранный компонент является чекбоксом, и он выбра(стоит галочка)
       begin
        SetLength(cbet, (length(cbet)+1));  // то мы увеличиваем размер массива на 1
        cbet[High(cbet)] := TCheckBox(RaspMatF.Components[i]).Tag;  // добавляем значение в массив
       end;
    end;

таким образом я записывал в массив значения Tag выбранных компонентов CheckBox

[NeVerSS]

Спасибочки...Че то подобно пытался сделать да то ли у ми ума не хватило то ли кривизна рук в тот момент перешла за критическую отметку

Слушай а че это за тип такой?

RaspMatF: TRaspMatF

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

просто переименновая форма(у вас скорее всего TForm)

[NeVerSS]

Я же почти сам уже догадался!!!!!))))))))))))))

[zvygin1964]

Я предполагаю, что длинна массива " length(cbet) ". Это верно?

[min@y™]

но мне желательно без этого

Очень зря!

[zvygin1964]

Нет, работает не правильно. Выдает не понятно что.

unit RaspMatF;     // http://www.programmersforum.ru/showthread.php?p=1415338#post1415338
                   // запись в массив значения Tag выбранных компонентов CheckBox
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cbet : array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var //создать массив  номеров установленных в состояние Checked=1 компонентов TCheckBox
 i:Integer;
begin //от "maLoy*508" http://www.programmersforum.ru/showthread.php?p=1415338#post1415338
 for i := 0 to Form1.ComponentCount - 1 do // перебираем на форме все компоненты
 begin
  if (Form1.Components[i] is TCheckBox) and TCheckBox(Form1.Components[i]).Checked then // и если выбранный компонент является чекбоксом, и он выбра(стоит галочка)
  begin
   SetLength(cbet, (length(cbet)+1));  // то мы увеличиваем размер массива на 1
   cbet[High(cbet)] := TCheckBox(Form1.Components[i]).Tag;  // добавляем значение в массив
  end;  
 end;  
 end;
 

procedure TForm1.Button2Click(Sender: TObject);
   var //посмотреть на полученный массив
 i:Integer;
begin
 for i:=1 to length(cbet) do
  Memo1.Lines.Add(IntToStr(cbet[i]));
end;

end.

Установлены в состояние "1" CheckBox с номерами 2,4,6, а сообщение в Memo:
0
0
15029476