Переименовать несколько Button

← →
Aleks (2011-11-23 13:36) [0]

Доброго времяни суток, Мастера подскажите, как Переименовать из списка несколько

Button[i].Саption:=Memo.Lines[i].

← →
clickmaker © (2011-11-23 13:40) [1]

а в чем трудности?

← →
OW © (2011-11-23 13:41) [2]

for i:= 0 to Memo.Lines.Count - 1 do
if Button[i] <> nil then
Button[i].Name:=Memo.Lines[i];

?

← →
Aleks (2011-11-23 13:44) [3]

как объявить массив или что съделать что б это работало Button[i].Саption

← →
Ega23 © (2011-11-23 13:47) [4]

var list: TList; i: Integer; begin list := TList.Create; try list.Add(Button1); list.Add(Button2); list.Add(Button3); Memo1.Clear; Memo1.Lines.Add("Кнопко 1"); Memo1.Lines.Add("Кнопко 2"); Memo1.Lines.Add("Кнопко 3"); for i:= 0 to list.Count -1 do TButton(list[i]).Caption := Memo1.Lines[i]; finally list.free; end; end;

← →
Aleks (2011-11-23 13:52) [5]

Спасибо всем за помощь. Всё получилось.

B: array of TButton;

N := 0;
for i := 0 to ComponentCount - 1 do
if Components[i] is TButton then
begin
N := Length(B);
SetLength(B, N + 1);
B[N] ;= TButton(Components[i]);
end;

теперь в B - все бутоны на форме, далее по схеме

for i:= 0 to min(Memo.Lines.Count - 1, N) do
if B[i] <> nil then
B[i].Caption:=Memo.Lines[i];

Переименовать несколько Button Найти похожие ветки [i]