پر كردن لبيل هايي بانام مشابه

[tabatabaei2568]

سلام ميخوام تعداد زيادي ليبل را با استفاده از يك حلقه مقداربدهم
نام ليبل ها:esg1,esg2,esg3,esg4,...
لطفا اگر امكان اين عمل وجود داره من و راهنمايي كنيد.

[shervin farzin]

سلام
اين كد براي مقدار دادن به 10 Label .

var
i:Integer;
begin
for i := 1 to 10 do
(FindComponent('esg'+inttostr(i)) as TLabel).Caption:='Test String '+inttostr(i);

موفق باشيد.

[hamidmokh]

اینم بدونی بد نیست :لبخند:

for i := 0 to ComponentCount - 1 do
begin
if COMPONENTS[i] is TLabel then
TLabel(COMPONENTS[i]).Font.Name := 'Tahoma';
end;