Tedit.clear

سلام عليكم

ليس هناك داعي من تعريف العنصر

فقط استخدم الإجراء التالي

Procedure Clear_All_Edit(Frm:TForm);

Var

I:Integer;

Begin

For I :=0 to frm.ComponentCount-1 do

Begin

If frm.Components Is TEdit Then

Tdit(Frm.Components).Clear;

end;

end;

أرجو أن تكون قد وصلت

لا تنسى أن تمرر اسم الفورم للإجراء

شكرا شكرررررررررررررررررررررررررررررررررررا MS.Programmer

توني جاي من موقع اجنبي وجدت نفس مااشرت اليه

الحقيقة يجب ان نهنئ انفسنا بوجود واحد مثلك في المنتدى.

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

for i:=0 to ControlCount -1 do

if Controls is Tedit then

tedit(Controls).Clear ;

end;