[fofka]

Уже был вопрос про очистку формы при закрытии, код дали. Но есть проблема. Содержимое Едитов и Комбобоксов которые на форме очищаются. У меня форме есть еще PageControl1 с TabSheet1 и TabSheet2, на них едиты и комбобоксы не хотят очищатся.
Подскажите почему не очищаются.

procedure TForm4.N1Click(Sender: TObject);
 Var i: Integer;
 begin
  for i := 0 to ControlCount - 1
 do begin
    if Controls[i].ClassType = TEdit
    then TEdit(Controls[i]).Clear;
    if Controls[i].ClassType = TComboBox
    then TComboBox(Controls[i]).Clear;


 Form4.Close;
 Form1.Visible:=true;
    end;
end;

[M.A.D.M.A.N.]

Ибо для чистки табшитов надо тоже бежать в цикле и чистить.
а вообще, эту штуку желательно сделать рекурсивной.

Код:

procedure clear(aOwner: TWinControl);
var
  i: integer;
begin
  for i := 0 to aOwner.ControlCount - 1 do
  begin
    if aOwner.Control[i] is TEdit /*или баттон, или еще что-то*/ then
      /*чистим (aOwner.Control[i] as TEdit).Clear;*/
    if (aOwner.Control[i] is TTabSheet) or (aOwner.Control[i] is TPageControl) then
      clear(aOwner.Control[i]);
  end;
end;

Ну как-то так.

[fofka]

Благодарю за ответ. Понял где ошибка.