چطور در زمان اجرا لیبل بسازیم ؟؟

[ali135ugd]

مقدار top و left میتونه به صورت یک متغیر باشه یایه چیزی شبیه این

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یا مقدار لیبل ها چی؟ مثل

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ممنون از اینکه حوصله میکنی و جوابمو میدی

[romixery]

البته، روشي كه مرد مباح عزيز گفتن بسيار خوب و درسته. ولي يك راه ديگه هم هست. مي تونيد از يك Container استفاده كنيد، و اون رو Parent كليدهايي كه تازيه مي سازيد كنيد. در نهايت مي تونيد به وسيله يه حلقه، به سادگي تعداد ليبلهاي اون رو شمارش كنيد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اين تابع تعداد TLabel هاي شما رو بر مي گردونه. در ضمن براي ايندكس گزاري كامپوننتهاي خودتون از خاصيت Tag حتماً استفاده كنيد چون براي همين كارا اين خاصيت رو در نظر گرفتن.
موفق باشين

[ali135ugd]

من برنامه را تا اینجا رسوندم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اما این ارور ها رو میده و به هیچ وجه هم درس نمیشه این ارورا چیند؟

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

راستی این روشی که شما گفتین خیلی سخته

function labelsearch(panel : TPanel):integer;
var
ind : integer;
begin
result := 0;
for ind := 0 to panel.componentCount - 1 do
begin
if (panel.component[ind] is TLabel) then
inc(result);
end;
end;

اصلا از این اصطلاحات سر در نمیارم اگه میشه یه توضیح بدین این دستور ها چجوری کار میکنن

[مرد مباح]

دوست عزیز. اونا Warning هستند و Error محسوب نمیشن. منظورش هم اینه که i رو بایددر محدوده خود Procedure تعریف کنی و نه در سطح کلی برنامه. البته مشکلی هم نداره و برنامت اجرا میشه.