CheckBox와 Edit가 하나로 묶여있는데요...
즉...
Edit1 - CheckBox1
Edit2 - CheckBox2
Edit3 - CheckBox3
Edit4 - CheckBox4
Edit5 - CheckBox5
이런식인데요..
버튼을 눌렀을때. CheckBox가 체크되어있으면 그 해당되는
Edit의 값을 불러오려고 합니다..
예를들면 Edit1.Text = 20일때
CheckBox1이 선택되어있으면
버튼을눌렀을때 Memo에 나타내고자 하는 내용은
선택된 EditBox가 몇번째 Edit이고 그 값은 무엇인지 알아내는겁니다..
고수님들 부탁드립니다..
아래에 함 코딩해봤습니다.. 참고하시고요
procedure TForm1.Button1Click(Sender: TObject);
var Edit : TEdit;
CBox : TCheckBox;
i : Integer;
begin
for i := 1 to 5 do begin
CBox := TCheckBox(FindComponent('CheckBox'+ IntToStr(i)));
if CBox.Checked = True then begin
Edit := TEdit(FindComponent('Edit' + IntToStr(i)));
showmessage(IntToStr(i) + ' : ' +Edit.Text);
end;
end;
end;
즐거운 프로그램 하세요^^