xinofix
17-04-2008, 08:16 PM
السلام عليكم
وفر عنك مجموعة كبيرة من الأسطر واختصر الوقت
يعاني البعض من روتين إفراغ مجموعة كبيرة من الـ TEdit وينتابه شيء من الضجر والملل جراء دلك !
لكن لا عليك فنحن نوفر عليك الجهد والملل
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[/left]
(Components[ i ] as TEdit).Clear() {.... Clear only the selected controls(TEdits)}';
end;
end;
وفر عنك مجموعة كبيرة من الأسطر واختصر الوقت
يعاني البعض من روتين إفراغ مجموعة كبيرة من الـ TEdit وينتابه شيء من الضجر والملل جراء دلك !
لكن لا عليك فنحن نوفر عليك الجهد والملل
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[/left]
(Components[ i ] as TEdit).Clear() {.... Clear only the selected controls(TEdits)}';
end;
end;