Изменение имени TextEdit в цикле

← →
Андрей Воркин (2010-07-01 13:17) [0]

Мастера, помогите. Как написать цикл для трех Эдитов с возможностью их перебора по имени. Edit1, Edit2 и Edit3.

← →
RWolf © (2010-07-01 13:22) [1]

var i:Integer;c:TComponent; begin for i:=1 to 3 do begin c:=FindComponent("Edit"+inttostr(i)); if c<>nil then with c as TEdit do Text:=Text+"x"; end; end;

← →
Андрей Воркин (2010-07-01 13:32) [2]

а в VisualBasic так можно сделать? Спасибо.

← →
Anatoly Podgoretsky © (2010-07-01 13:43) [3]

> Андрей Воркин (01.07.2010 13:32:02) [2]

А в VisualBasic нет Дельфийских компонент.

← →
Андрей Воркин (2010-07-01 13:44) [4]

я знаю. это для общего развития ))

Идея, убитая на всю голову по своей сути :)

> MsGuns © (01.07.10 19:46) [5]

> Идея, убитая на всю голову по своей сути :)

Забитый молотком шуруп держится лучше гвоздя,
завернутого ответкой.

--
Regards, LVT.

Изменение имени TextEdit в цикле Найти похожие ветки