| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Переименовать несколько Button[i] [D7]

Aleks ©   (2011-11-23 13:36:00) 

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

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

---

Aleks   (2011-11-23 13:52:00) [1]

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

---

OW   (2011-11-23 13:52:00) [2]

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];

---

Ega23   (2011-11-23 13:47:00) [3]

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:44:00) [4]

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

---

OW   (2011-11-23 13:41:00) [5]

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

?

---

clickmaker   (2011-11-23 13:40:00) [6]

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

---

Наверх