کمک در جست جو

[rasoulasaltala]

سلام
چطور میشه بین چندین label که در فرم های مختلف هستند عمل جستجو رو انجام داد
البته caption اونارو
کد جستجو در یک فرم رو گذاشتم کسی میتونه چند فرمشو بهم کمک کنه
for i:=0 to form1.ComponentCount-1 do
begin
if form1.Components[i] is Tbutton then
if Tbutton(components[i]).Caption=edit1.Text then
begin
Tbutton(components[i]).OnClick(Sender);
exit;
end;

[Felony]

من دلفی در دسترسم نیست ، ولی فکر کنم بتونید مثل همون جست و جو در بین لبل ها در بین فرم ها هم جست و جو کنید ، یعنی با 2 تا حلقه ی تو در تو ، یکی به تعداد فرم ها و یکی هم لیبل ها .

[rasoulasaltala]

مشکل اینجاست که چطور میشه تعداد form رو حساب کرد ما تعداد label رو با ComponentCount حساب می کردیم اما این جا چه طوری میشه
لطفا اگه کسی کدش رو میدونه راهنماییم کنه

[Felony]

اگر نام فرم هاتون شبیه هم باشه اینطوری میتونید تعداد فرم های برنامتون رو حساب کنید :


var
i,FormCount: Integer;
begin
FormCount:= 0;
for i := 0 to Application.ComponentCount - 1 do
if Application.Components[i].ClassName='TForm'+IntToStr(i) then Inc(FormCount);
Form1.Caption:=IntToStr(FormCount);
end;