перебор компонентов формы

← →
fxmike (2004-07-13 11:02) [0]

перебираю компоненты формы form1.components[i], чтобы отсортировать их по типам (editы - водну сторону, box-ы в другую и т.п.), в цикле присваиваю переменной comp(Tcomponent) form1.components[i], и не могу найти как мне можно обратиться ирменно к свойству компонента каким он сейчас является, например edit1.text?
надеюсь понятно написал. thanks.

← →
Sandman25 © (2004-07-13 11:06) [1]

if Comp is TEdit then
TEdit(Comp).Text := ...
else
if Comp is TLabel then
TLabel(Comp).Caption := ...

← →
Ega23 © (2004-07-13 11:06) [2]

With Form1 do
begin
for i:=0 to ControlCount-1 do
begin
if (Controls[i] is TEdit) then
(Controls[i] as TEdit).Text:="";

if (Controls[i] is TComboBox) then
(Controls[i] as TComboBox).ItemIndex:=1;

end;
end;

И так далее.

← →
fxmike (2004-07-13 11:09) [3]

спасибо большое

перебор компонентов формы Найти похожие ветки