procedure clear_Edits;
var
cnt : integer;
begin
for cnt := 0 to ComponentCount - 1 do
begin
if Components[cnt].ClassName = 'TEdit' then
TEdit(Components[cnt]).Clear
end;
نظرات شما عزیزان:
ارسال شده در تاریخ : دو شنبه 20 شهريور 1390برچسب:,
سلام به وبلاگه من خوش امدید
لطفا ایمیلتون رو توی خبرنامه وبلاگم پبت کنید تا زمانی که آپ کردم بهتون خبر بدم و خواهشا توی نظر سنجی وبلاگم شرکت کنید .
مرسی
تبادل
لینک هوشمند
برای تبادل
لینک ابتدا ما
را با عنوان
راز شب 14
و آدرس
raze-shabe14.LXB.ir لینک
نمایید سپس
مشخصات لینک
خود را در زیر
نوشته . در صورت
وجود لینک ما در
سایت شما
لینکتان به طور
خودکار در سایت
ما قرار میگیرد.