TButton - работа с массивом кнопок

[iskurt]

ув., господа. Есть необходимость переименовывать кнопки во время программы. Их много, и есть список имен.
Я щас беру просто имена по порядку. к примеру

var
i : integer;
buttons:array of TButton;
begin
  for I := 1 to 7 do
    buttons[i].Caption := IntToStr(i);
end;

Ругается, чтото типа не доступно... память не может быть прочтена по адресу....
ПОМОГИТЕ разобраться с переименовыванием массива кнопок.


А если массив объявить как

buttons:array [0..8] of TButton;

То без ошибок, но кнопки не переименовываются....
ВОпрос, как переименовать кнопки в цикле?

[dr.Chas]

Сообщение от iskurt

Ругается, чтото типа не доступно... память не может быть прочтена по адресу....
ПОМОГИТЕ разобраться с переименовыванием массива кнопок.

Ну вообще полный код не помешал бы. А так:

for i:=0 to high(buttons) do

Почитай про работу с динамическими массивами.

add:

Вот примерчик на скорую руку набросал:

var
  Form1: TForm1;
  buttons:array of TButton;
  butt: TButton;
  sch: smallint;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var  i : integer;
begin
  for I := 0 to high(buttons) do
    buttons[i].Caption := IntToStr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  butt:=TButton.Create(form1);
  SetLength(buttons, Length(Buttons)+1);
  butt.Caption:='asdf';
  butt.left:=(sch+1)*100;
  butt.Parent:=form1;
  buttons[sch]:=butt;
  inc(sch);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sch:=0;
end;

[iskurt]

СПАСИБО, вот я идиот, я подумал что если я объявил массив кнопок, то все имеющиеся уже кнопки в этом массиве А КТО БЛИН СОЗДАВАТЬ МАССИВ ТО БУДЕТ?
Еще раз спасибо

[Sanprof]

а зачем вам необходимость создание массива кнопок и при этом дополнительное выделение памяти, если можно просто пробежать по каждому компоненту на форме и по определенному условию получать все свойства, ну вот код к примеру:

var
  Component: TComponent;
  i: integer;
begin
  for i := 0 to self.ComponentCount - 1 do
    begin
      Component := self.Components[i];
      if (Component is TButton) then //если кнопка
        if (Component as TButton).Caption = 'Button4' then //если Caption у кнопки равен 'Button4'
          (Component as TButton).Caption := 'Renamed'; //переименовываем
    end;
end;