ساخت آرایه کنترلی در دلفی

[hamor]

بیاییم کاری کنیم که در دلفی مانند ویژوال بیسیک کنترلهای موجود در فرم دارای یک نام و با ایندکس های متفاوت باشند.

[hamor]

یک روش وجود دارد که البته این کار توسط دلفی انجام نمیگیرد باید خودمان این برنامه را درست کنیم

فرض کنیم ما چند edit داریم که نام آنها با Edit شروع میشود و در ادامه نام آنها عدد می آید مثل Edit1 و ...

ما فرض میکنیم که حروف نام مشترک بین تمام کنترلها است و عدد جلوی آنها ایندکس آنها بنابراین

کد زیر تمام شی هایی که نام آنها با کلمه edit شروع میشود محتوای آنها را به 125 تغییر میدهد.

var
I: Integer;
Temp: TComponent;
t_edit:tedit;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
IF copy(temp.Name,1,4) = 'Edit' then
begin
t_edit:=tedit(temp);
t_edit.Text:='125';
end;
end;
end;

امیدوارم به کارتان بیاید که میدانم حتما می آید.

[MSK]

از موضوعت خیلی ممنون ولی اگه برنامه رو بین یه تگ code میگزاشتی خوندنش راحتتر می شد.

ممنون