Скачать: CL | DM;

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

← →
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]

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

---

← →
OW ©   (2011-11-23 13:52) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.004 c