Очистка нескольких полей Edit (Delphi2009)

[Corpuscul]

Всем доброго времени суток. На форме есть несколько полей Edit как бы мне их очистить, избегая такого кода

 
edt1.Clear;
edt2.Clear;
edt3.Clear;

[whatever]

edit1.text:='';

не?

[Corpuscul]

Сообщение от whatever

edit1.text:='';

не?

Нет, потому что надо очистить несколько полей (порядка 15), я могу конечно прописать

edt1.Clear;
edt2.Clear;
edt3.Clear;
...
edt20.Clear;

или

edit1.text:='';
edit2.text:='';
...
edit20.text:='';

Но во-первых некрасиво, а во-вторых если полей будет порядка 100 или 1000? Можно же наверное через цикл как-то сделать?

[whatever]

Вообще вопрос интересный. Немного погуглил, пришел вот к чему:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure clredit(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  clredit(form1);
end;

procedure TForm1.clredit(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to ComponentCount-1 do
    if (Components[i] is TEdit) then 
      (Components[i] as TEdit).Clear;
end;
end.

На форму бросил четыре Edit'а и одну кнопку, все работает.

[Corpuscul]

Если я правильно понимаю, то здесь очищаются все поля Edit в Form1, а если мне надо очистить выборочно, то поля Edit надо кинуть хотя бы на панель или что - то подобное, чтобы не очищать остальные поля формы?

[whatever]

Как раз для тебя

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) and ((Components[i] as TEdit).Parent = Panel1) then
      (Components[i] as TEdit).Clear;
end;

[Corpuscul]

Хе-хе, точно! Спасибо!

[Serge_Bliznykov]

а если мне надо очистить выборочно

как вариант, у компонента TEdit есть свойство tag (челочисленное). Можно присвоить определённое значение тем Edit'ам на форме, которые надо почистить.
например, пусть мы в дизайнере в поле tag нужным полям занесли tag = 222
тогда:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) and ((Components[i] as TEdit).tag = 222) then
      (Components[i] as TEdit).Clear;
end;

p.s. конечно, вариант с панелью ничем не лучше и не хуже, использование поля tag просто другой способ решить ту же задачу...

[Alter]

Ну я это написал и пользуюсь:

function IsList(Name_ :string; List_ :array of string):Boolean;
var
  I,II :LongInt;
  Buf0 :string;
begin
  Result := False;
 if Length(List_) <= 0 then
  Exit;
 for I := Low(List_) to High(List_) do
 begin
   Buf0 := AnsiLowerCase(List_[I]);
  if AnsiLowerCase(Name_) = Buf0 then
  begin
    Result := True;
    Break;
  end;
 end;
end;

procedure EnabDisabComponent(StartComponent :TComponent; ListName :array of string;
                             Enabl :Boolean=True);
var
  I,II :LongInt;
  B :Boolean; // результат сравнения имён
  Buf :string; // текущее имя компонента считаное
  Com0, Com1 :TComponent;
begin
 if StartComponent = nil then
  Exit;
 if Length(ListName) <= 0 then
  Exit;
 Com0 := StartComponent;
 II := Com0.ComponentCount;
 if II>0 then
 begin
  for I := 0 to II - 1 do
  begin
    Buf := Com0.Components[I].Name;
   if IsList(Buf, ListName) then
   begin
     Com1 := Com0.Components[I];
      try
     TControl(Com1).Enabled := Enabl;
      except
      end;
   end;
  end;
 end;
end;

//Использование:
 EnabDisabComponent(Form1, ['sLabel12', 'Edit1', 'sLabel13', 'Edit2',
                            'sLabel14', 'Edit3', 'sLabel15', 'Edit4',
                            'ChBox3'],
                    ChBox1.Checked);

Переделано специально для очистки, если не охото менять код сверху

var
  Form1: TForm1;
  function IsList(Name_ :string; List_ :array of string):Boolean;
  procedure SetEdtTxtCtrl(StartComponent :TComponent; ListName :array of string;
                          Txt :string = '');

implementation

{$R *.dfm}

function IsList(Name_ :string; List_ :array of string):Boolean;
var
  I,II :LongInt;
  Buf0 :string;
begin
  Result := False;
 if Length(List_) <= 0 then
  Exit;
 for I := Low(List_) to High(List_) do
 begin
   Buf0 := AnsiLowerCase(List_[I]);
  if AnsiLowerCase(Name_) = Buf0 then
  begin
    Result := True;
    Break;
  end;
 end;
end;

procedure SetEdtTxtCtrl(StartComponent :TComponent; ListName :array of string;
                        Txt :string);
var
  I,II :LongInt;
  B :Boolean; // результат сравнения имён
  Buf :string; // текущее имя компонента считаное
  Com0, Com1 :TComponent;
begin
 if StartComponent = nil then
  Exit;
 if Length(ListName) <= 0 then
  Exit;
 Com0 := StartComponent;
 II := Com0.ComponentCount;
 if II>0 then
 begin
  for I := 0 to II - 1 do
  begin
    Buf := Com0.Components[I].Name;
   if IsList(Buf, ListName) then
   begin
     Com1 := Com0.Components[I];
     if (Com1 is TEdit) then
      try
     TEdit(Com1).Text := Txt;
      except
      end;
   end;
  end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetEdtTxtCtrl(Form1, ['Edit1', 'Edit2', 'Edit3', 'Edit4', 'Edit5', 'Edit6',
                        'Edit7', 'Edit8', 'Edit9', 'Edit10', 'Edit11', 'Edit12',
                        'Edit13', 'Edit14', 'Edit15', 'Edit16', 'Edit17',
                        'Edit18', 'Edit19', 'Edit20'],
                '');
end;

[095]

whatever, а что делать если delphi запрещает добавлять эту процедуру?
http://joxi.ru/1A5WxZzhnJNQem.jpg
Как это обойти?