Цитата:
|
Сообщение от Yurk@
Тогда так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
t:string;
begin
t:=Edit1.Text+Edit2.Text;
Case StrToInt(t) of
00 : RadioButton1.Checked:=True;
01 : RadioButton2.Checked:=True;
//....
22 : RadioButton9.Checked:=True;
else ShowMessage('....');
end;
end; |
Спасибо за вариант, но он не совсем подходит т.к. все необходимо сделать в 2-x property (не в эдитах) (x, y соответственно грузить в соответствующие проперти). (и тут возникает вопрос: как это все оптимизировать. Может быть сделать отдельну функцию которая будет на основании проперти выбирать требуемый радиобуттон. Но тут же еще один вопрос откуда ее вызывать)
