Очистка edit'ов находящихся на определённом компоненте

[Arkuz]

Здравствуйте.
Мне необходимо очищать edit'ы. Проблема в том, что у меня много вкладок и на каждой есть поля ввода. Мне нужно очищать определённые поля, на определённых вкладках.

Этот код чистит все поля ввода на всей форме. Как его модернизировать, чтобы чистил только на вкладке TabSheet1?

procedure TMainForm.ClearEdits;
 var i : Integer;
begin
 for i := 0 to ComponentCount-1 do
  begin
   if (Components[i] is TEdit) then
     (Components[i] as TEdit).Clear;
  end;
end;

Заранее благодарю.

[Аватар]

procedure TMainForm.ClearEdits;
 var i : Integer;
begin
 for i := 0 to TabSheet1.ControlCount-1 do
  begin
   if (TabSheet1.Controls[i] is TEdit) then
     (TabSheet1.Controls[i] as TEdit).Clear;
  end;
end;

При условии, что Edit-ы лежат непосредственно в TabSheet1. Если есть подложка типа TPanel или др. то в ней точно также можно искать

[Arkuz]

спасибо... тогда проще удалить вручную...

[Аватар]

Ничего не проще. В процедуру добавить параметр TabSheet: TTabSheet и для любой вкладки обращаться к этой процедуре с нужным именем

[SNUPY]

ИМХО для крастоты действий лучше тогдась уж делать входным параметром
Сontainer: TWidgetControl

[Volt]

можно вот так :

procedure TForm1.ClearEdits;
 var i : Integer;
begin
 for i := 0 to ComponentCount-1 do
  begin
   if (Components[i] is TEdit) then
   if ((Components[i] as TEdit).Parent is TTabSheet)  then
   if ((Components[i] as TEdit).Parent as TTabSheet).Caption='TabSheet1'  then
     (Components[i] as TEdit).Clear;
  end;
end;

либо вот так:

function ComponentShearchParent(CParent:TWinControl):TWinControl;
begin
CParent:=CParent.Parent;
if (CParent is TTabSheet)  then
Result:=CParent
else
CParent:=ComponentShearchParent(CParent.Parent);
end;

procedure TForm1.ClearEdits(Caption:String);
var i : Integer;
begin
for i := 0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
if ((Components[i] as TEdit).Parent is TTabSheet)  then
begin
if ((Components[i] as TEdit).Parent as TTabSheet).Caption=Caption  then
(Components[i] as TEdit).Clear;
end
else
if (ComponentShearchParent((Components[i] as TEdit).Parent) is TTabSheet) then
begin
if (ComponentShearchParent((Components[i] as TEdit).Parent) as TTabSheet).Caption=Caption  then
(Components[i] as TEdit).Clear;
end;


end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ClearEdits('TabSheet2')
end;