Перебір елементів у циклі

Те, що ця сама довжина не є постійною, говорить про те, що воно робиться не в дизайн-тайм. А раз так, створювай ці мітки динамічно: with TQRLabel.Create(..) do Something. Зберігати ж посилання можна хоч у масиві, тобто. QRLabels: array of TQRlabel (ще зберігай кількість реально створених елементів). Hу, і звертатися до них можна просто за індексом. Іноді зручніше зберігати їх у списку TList, TObjectList.

Мир дому твоєму, Bator .

BD> for i:=1 to Length(MyStr) do BD> begin BD> для i:=0 до ComponentCount-1 do BD> begin BD> if (Components[i] is TLabel)and BD> ((Components[i] as TLabel).Name='QVIN'+IntToStr(i)) then BD> (Components[i] as TLabel).Caption:=MyStr[i]; BD> end; BD> end;

Код працює, тільки при близько двох сотень компонентів на формі (кілька TabSheet) циклів дуже багато виходить. У мене Edit-и заповнюються даними з таблиць, причому дані в таблицях обчислюються. Коротше - на моєму Атлоні 1900 все швиденько бігає, боюся на чомусь типу першого пня буде моторошно гальмувати. Ось такий варіант якось можна виправити?

var i: Integer; qw: String;

begin для i:=1 to 150 do begin qw := 'Label' + IntToStr(i); (*) (qw as TLabel).Caption:=Edit1.Text; end; end; end. Це не працює, компілятор підсвічує рядок (*) і цілком резонно каже, що "оператор не applicable to this operand type" Ось і питання: чи можна якось String перетворити на TLable?

Пишіть, дзвоніть, заходьте. Редькін Олексій. e-mail: real7(at)mail(dot)ru

---