كود مسح كامل TEdit وإفراغها مرة واحدة

[xinofix]

[FONT=Arial]السلام عليكم

[FONT=Arial]وفر عنك مجموعة كبيرة من الأسطر واختصر الوقت
[FONT=Arial]يعاني البعض من روتين إفراغ مجموعة كبيرة من الـ TEdit وينتابه شيء من الضجر والملل جراء دلك !
[FONT=Arial]لكن لا عليك فنحن نوفر عليك الجهد والملل

PHP كود :

var
  i : integer;
begin
  for i := 0 to ComponentCount-1 do       {.... Count all TForm components  ....}
    begin
      if( Components[ i ] is TEdit )then      {.... We want only the TEdit control ! ....}
      begin[/align] 
        (Components[ i ] as TEdit).Clear()  {.... Clear only the selected controls(TEdits)}';
      end;
  end; 


[xinofix]

المكون التالي قمت بإنشاءه وهو يفي بالغرض وزيادة
يمكنك من إختيار مجموعة من المكونات من بين أخرى
مثلا: مسح من Edit3 إلى غاية Edit15

[wadoud]

var

i: integer;

begin

for i:=0 to ComponetCount-1 do
if Components[1] is TEdit then
begin
TEdit(components[i]).text:= '';
end;