[kast2k]

Добрый день!
Возникла такая проблема:
Есть несколько форм. На этих формах используются компоненты TlabeledEdit.
Задача: сделать одну общую процедуру для очистки TlabeledEdit на всех формах. Т.е. открыта, например, Form2, нажал кнопку и все Эдиты на форме очистились или в них записалось какое-то значение, а на других формах ничего не изменилось.
Пробовал сделать вот так, но при этом все происходит только на основной форме, а на остальных фиг.

Код:

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

procedure Tform1.clearf(Sender: TObject); var i,c,k:integer; begin c:=0; for k := 0 to controlcount-1 do   begin   if controls[k] is TlabeledEdit then   c:=c+1;   end; for i:=0 to c-1 do     begin       TLabeledEdit(FindComponent('Edit' + IntToStr(i+1))).color:=clred;     end; end;

[Thrasher]

Пробуй так

PHP код:

procedure Tform1.clearf(Sender: TObject);
var
i,c,k:integer;
begin
 With Form2 do
   begin
     C:=0;
       for I:=0 to ControlCount-1 do
              if Controls[i] is TlabeledEdit then Inc(C);
    
       for I:=0 to C-1 do
          TLabeledEdit(FindComponent('Edit' + IntToStr(I+1))).Color:=clRed;
   end;

c:=0;
for k := 0 to controlcount-1 do
  begin
  if controls[k] is TlabeledEdit then
  c:=c+1;
  end;
for i:=0 to c-1 do
    begin
      TLabeledEdit(FindComponent('Edit' + IntToStr(i+1))).color:=clred;
    end;
end; 


[Страдалецъ]

У автора стоит задача очистить на ВСЕХ формах, так-что примерно так:

Код:

1 2 3 4 5 6 7

Var i,j: Integer; begin  for i := 0 to Application.ComponentCount - 1  do if Application.Components[i].ClassParent = TForm     then for j := 0 to Application.Components[i].ComponentCount - 1          do if Application.Components[i].Components[j].ClassType = TLabel             then TLabel(Application.Components[i].Components[j]).Caption := 'Чисто';

[kast2k]

Спасибо! То что нужно!

[Janom]

Мне кажется удобнее на две процедуры разделить одна чистит все эдиты на одной форме, а другая на всех:

Код:

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

procedure AllInFormEditClear(aForm:TForm; aString:String); var   i:Cardinal; begin for i:=0 to aForm.ComponentCount-1 do   if aForm.Components[i].ClassType = TLabeledEdit then     TLabeledEdit(aForm.Components[i]).Text := aString; end;   procedure AllInAppEditClear(aString:String); var i:Cardinal; begin for i:=0 to Application.ComponentCount-1 do   if Application.Components[i].ClassParent = TForm then     AllInFormEditClear(TForm(Application.Components[i]),aString); end;

Код Первой Формы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     LabeledEdit1: TLabeledEdit;     LabeledEdit2: TLabeledEdit;     LabeledEdit3: TLabeledEdit;     procedure Button1Click(Sender: TObject);     procedure FormShow(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;     procedure AllInFormEditClear(aForm:TForm; aString:String); forward; // Объявление процедуры (очистить только на одной форме)   procedure AllInAppEditClear(aString:String); forward; // Объявление процедуры (очистить на всех формах) var   Form1: TForm1;   implementation   uses Unit2;   {$R *.dfm} //Очистка LabledEdit'ов procedure AllInFormEditClear(aForm:TForm; aString:String); var   i:Cardinal; begin for i:=0 to aForm.ComponentCount-1 do   if aForm.Components[i].ClassType = TLabeledEdit then     TLabeledEdit(aForm.Components[i]).Text := aString; end;   procedure AllInAppEditClear(aString:String); var i:Cardinal; begin for i:=0 to Application.ComponentCount-1 do   if Application.Components[i].ClassParent = TForm then     AllInFormEditClear(TForm(Application.Components[i]),aString); end;   //Вызов процедуры очистки procedure TForm1.Button1Click(Sender: TObject); begin AllInFormEditClear(Form1,''); end;   procedure TForm1.FormShow(Sender: TObject); begin Form2.Show; end;   end.

Код второй формы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm2 = class(TForm)     LabeledEdit1: TLabeledEdit;     LabeledEdit2: TLabeledEdit;     LabeledEdit3: TLabeledEdit;     LabeledEdit4: TLabeledEdit;     LabeledEdit5: TLabeledEdit;     Button1: TButton;     Button2: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   uses Unit1; //подключение юнита хранящего процедуру очистки   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); begin AllInFormEditClear(Form2,'СЛОВО'); //вызов процедуры end;   procedure TForm2.Button2Click(Sender: TObject); begin AllInAppEditClear('ALL EDITS CLEAR!')//вызов процедуры end;   end.