Цикл по Edit ам...

← →
Dmitriy (2004-02-06 12:48) [0]

Доброго времени суток!
Вот задался ради интереса такой задачкой:
Есть куча эдитов(edit1, edit2, edit3... editN) и хотелось бы с помощью цикла присваивать им значения или сравнивать с какими-либо значениями, но используя для цикл типа:

for i:=1 to N do
begin
edit{i}.text:=inttostr(i);
end;

или что-то вроде этого... Мож кто видел что-либо подобное?
Заранее спасибо!

← →
Sandman25 © (2004-02-06 12:52) [1]

TEdit(FindComponent("Edit"+IntToStr(i))).Text := ...

← →
RDen (2004-02-06 12:53) [2]

for i:= 0 to ComponentCount - 1 do
begin //TEdits
if (Components [i] is TEdit) then //очищаем TEdits
TEdit (Components [i]).text := inttostr(i);

← →
nexxiss © (2004-02-06 12:56) [3]

for i:=0 to Form1.ComponentCount-1 do
if ( Form1.Components[i] is TEdit ) then
with ( Form1.Components[i] as TEdit ) do
begin
// делаем что нужно
// например
Text:="Едит номер:"+IntToStr(i);
end;

← →
Dmitriy (2004-02-06 12:56) [4]

Спасибо :) А ларчик-то просто открывался...
Я уж начал какие-то странные процедуры писать... мда мне ещё с Дельфи разбираться и разбираться...
Спасибо!

Цикл по Edit ам... Найти похожие ветки