PDA

View Full Version : تغییر دادن نام Object و اجرای یک کد خاص


mortezahbh
دوشنبه 03 تیر 1392, 14:08 عصر
با سلام:لبخندساده:

فرض کنید یک Edit Box داریم که داخلش نوشته شده "Timer1" و میخوایم وقتی روی یک دکمه کلیک کردیم Enable Timer1 برابر با False بشه
آیا امکان همچین کاری هست؟

با تشکر از همه دوستان:چشمک:
mortezahbh
سه شنبه 04 تیر 1392, 10:56 صبح
کسی نیست راهنمایی کنه؟
یوسف زالی
سه شنبه 04 تیر 1392, 11:25 صبح
سلام.
برای این کار راه ساده استفاده از کد زیره:


var
Cmp: TComponent;
begin
Cmp := FindComponent(trim(Edit1.Text));
if Assigned(Cmp) then
if Cmp is TTimer then
TTimer(Cmp).Enabled := not TTimer(Cmp).Enabled;
end;
mortezahbh
سه شنبه 04 تیر 1392, 11:29 صبح
سلام.
برای این کار راه ساده استفاده از کد زیره:


var
Cmp: TComponent;
begin
Cmp := FindComponent(trim(Edit1.Text));
if Assigned(Cmp) then
if Cmp is TTimer then
TTimer(Cmp).Enabled := not TTimer(Cmp).Enabled;
end;



واقعا ممنونم این کد خیلی بهم کمک میکنه:لبخندساده:
راستی Assigned برای چی استفاده میشه؟
یوسف زالی
سه شنبه 04 تیر 1392, 12:19 عصر
برای تست کردن اینکه یک اشاره گر به یک شی واقعی روی حافظه اشاره می کنه یا نه.
در حقیقت با این کد تست می کنیم ببینیم چیزی پیدا کرد یا نه.