اضافه کردن به Radiogroup بصورت Dynamic

[delphi5]

با سلام
چطور میشه به radiogroup بطور خودکار ایتم اضافه کرد و یا مقدار text آنها رو تغییر داد .
اصل مسئله به این صورت است


روی یک 12 تا radiogroup داریم .
هر radiogroup تعداد 15 آیتم دارد
حال می خواهیم با دو حلقه به این radiogroup ها مقدار بدهیم




for i:=1 to 12 do
begin
for j:=1 to 15 do
begin
radiogroup[i].caption:=inttosstr[j]+inttostr[i]
end;
end;

[rasool_brn]

var
i,j:integer;
begin
for i:=0 to ComponentCount-1 do
for j := 0 to 15 do
if Components[i] is TRadioGroup then
begin
(Components[i] as TRadioGroup).Caption:=inttostr(i);
(Components[i] as TRadioGroup).Items.Add(IntToStr(i)+IntToStr(j));
end;
end;

[mrm0101]

سلام

ببینید این کد بدردتون می خوره



var
i: Integer;
begin
for i:=0 to RadioGroup1.ControlCount -1 do
if( RadioGroup1.Controls[i] is TRadioButton ) then
( RadioGroup1.Controls[i] as TRadioButton ).Caption:='شماره'+''+IntToStr(i)
end;

[delphi5]

نه نه
من میخوام توی یک حلقه چند radiogroup رو مقدار دهی کنم .
این کد رو چطور میشه انجام داد


for i:=1 to 10 do
begin
radiogroup[i].............
end;

[mrm0101]

سلام
چه آیتمش رو می خواهید مقدار دهی کنید . منظورتون رو واضح تر بگید

[rasool_brn]

var
i:integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TRadioGroup then
(Components[i] as TRadioGroup).مقدارخصوصیت:=خصوصیت
end;

[delphi5]

دوستان عزیز


به فرض مثال

یه بانک دارم که 50 تا رکورد داره . میخوام مقدار رکورد 1 رو به checkbox1 و رکورد 2 رو به checkbox2 و به همین ترتیب تا رکورد 50 ادامه بدهم .


راهی داره که با یه loop این کار رو انجام داد ؟

[SYNDROME]

دوستان عزیز
به فرض مثال
یه بانک دارم که 50 تا رکورد داره . میخوام مقدار رکورد 1 رو به checkbox1 و رکورد 2 رو به checkbox2 و به همین ترتیب تا رکورد 50 ادامه بدهم .
راهی داره که با یه loop این کار رو انجام داد ؟
می توانید Tag مربوط به CheckBox ها را به مقدار فیلد یکتای رکوردهایتان مقدار دهی کنید و در زمان جستجو با توجه به Tag تفاوت آن را پیدا می کنید.
موفق باشید

[mrm0101]

سلام
کد زیر بر اساس تعداد رکوردهای جدول شما شیاء TCheckBox ایجاد می کند .



var
rec_no : Integer;
tr : TCheckBox;
begin
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
rec_no:=ADOQuery1.RecNo;
tr:=TCheckBox.Create(Self);
tr.Name:='m'+IntToStr(rec_no);
tr.Top:=50+rec_no*10;
tr.Left:=200+rec_no*20 ;
tr.Parent:=self;
tr.Caption:=ADOQuery1.FieldByName('yourfielname'). AsString;
tr.Checked:=true;
ADOQuery1.Next;
end;
end;




موفق باشید