К списку форумов К списку вопросов
TComponentName- Label1,Label2,Label3..........Label30 КАК ?!!
Kraft
13.08.2004 - 02:54
Кто знает как можно одной процедурой обработать много одноименных объектов ?
Например :
Label1 .. Label30 присвоить соответственно значения вася1, вася2 ...вася32
Как сделать 'вася'+IntToStr(N) я знаю, а вот как " Label(N).Text " НЕ знаю совсем. Кто подскажет, хотя бы где искать ответ.
Kraft
1 - 13.08.2004 - 04:24
Все. НАШЕЛ !! Если кому интересно : Пример из Делфи
The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box.
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;
Kraft
2 - 13.08.2004 - 04:26
Ну а дальше просто присвоить значения .....
for i := 1 to 20 do begin
 // TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
// Left := 10;
// Top := i * 20;
// Parent := self;
      Text := '56' ;
    end;
Всем спасибо, Особенно МНЕ !!!!
Наф
3 - 13.08.2004 - 14:28
какой то монофорум, понимаешь

К списку вопросов на форуме Программирование

>>