+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : كود مسح كامل TEdit وإفراغها مرة واحدة (/showthread.php?tid=143)
كود مسح كامل TEdit وإفراغها مرة واحدة - xinofix - 17-04-2008
[FONT=Arial]السلام عليكم
[FONT=Arial]وفر عنك مجموعة كبيرة من الأسطر واختصر الوقت
[FONT=Arial]يعاني البعض من روتين إفراغ مجموعة كبيرة من الـ TEdit وينتابه شيء من الضجر والملل جراء دلك !
[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;
كود مسح كامل TEdit وإفراغها مرة واحدة - xinofix - 17-04-2008
المكون التالي قمت بإنشاءه وهو يفي بالغرض وزيادة
يمكنك من إختيار مجموعة من المكونات من بين أخرى
مثلا: مسح من Edit3 إلى غاية Edit15
يمكنك من إختيار مجموعة من المكونات من بين أخرى
مثلا: مسح من Edit3 إلى غاية Edit15
RE: كود مسح كامل TEdit وإفراغها مرة واحدة - wadoud - 04-11-2015
var
i: integer;
begin
for i:=0 to ComponetCount-1 do
if Components[1] is TEdit then
begin
TEdit(components[i]).text:= '';
end;