![]() |
![]() |
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 | какой то монофорум, понимаешь |