وجود داشتن به زبان دلفی

[sajioo]

دوستان بنده با FindComponent کدی بنویسم که برای مثال بگم اگر کامپوننت با نام amar وجود داشت مثلا فلان کار را بکن؟
یادم رفته سرچم کردم نیافتم:اشتباه:

[sajioo]

برای مثال کد زیر رو نگاه کن



'1':=FindComponent('amar').Hint

حالا اگر این کامپوننت پیدا نشده ارور میده
من می خوام قبلش if بذارم بگم اگه بود این کارو کن

[یوسف زالی]

Cmp: TComponent;
.
.
Cmp := FindComponent('X1234');
if Assigned(Cmp) then
.
.

[hadisalahi2]

اینطوری هم میشه فکر کنم


if FindComponent('button1')is TComponent then
.
.
.

[یوسف زالی]

اون طوری کند تره :لبخند:

[hadisalahi2]

در عوضش فضایی از حافظه اشغال نمیکنیم :لبخند:

[یوسف زالی]

یک عدد پوینتر 4 بایته خسیس!
شما این طوری بنویس:


if Assigned(findcomponent(x)) then

:لبخند:

بعدش، حالا ما فهمیدیم هست، باهاش ترشی می ندازیم؟! خب معمولا یه چیزی ازش می خواهیم و حافظه لازم داریم.
با من لج نکن هادی جان :بوس:

[hadisalahi2]

داداش وقتی آدم یک کمی در زبان اسمبلی غرق بشه
میفهمه برای تخصیص یک متغیر ، چقدر این سیستم طفلکی باید کد تولید کنه و مقدار دهی کنه و بخونه و ثبات ها رو دست کاری کنه و استک رو چک کنه وهووووووووووووووووووووووو وو
دیگه نگم دیگه یوسف جان

رحمم به کامپایلر میاد :قهقهه: