[T@nker]

как произвести выборку одного из компонентов TMemo и звдвть какие - то оссобенные свойства пробовал такой код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   i,j:Cardinal;   S:ShortString; begin For i:=0 to Groupbox1.ControlCount-1 do   begin     S:='';     if Groupbox1.Controls[i].ClassType = TmEMO then       begin         for j:=1 to Length('class') do           S:=S+Groupbox1.Controls[i].Name[j];         if S='class' then          Tmemo(Groupbox1.Controls[i]).Visible := false;          Tmemo(groupbox1.Controls[clchoose.ItemIndex +1]).Visible := true;       end;

[angvelem]

Код:

1 2 3

for I := 0 to ComponentCount - 1 do   if (Components[i] is TMemo) and ((Components[i] as TMemo).Parent = GroupBox1) then     ...

так пойдёт?