Ya he logrado poner un radiogroup , el código es el siguiente:
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
Edit1.Text := RadioGroup2.Items[RadioGroup2.ItemIndex];
end;
Y el del edit es:
procedure TForm1.Edit1Change(Sender: TObject);
begin
RadioGroup1.ItemIndex := TStringList(RadioGroup1.Items).IndexOf(Edit1.Text);
muestreo:=strtoint(edit1.text);
end;
Pero me da un error cuando pulso cualquiera de los radiobuttons:
"EconvertError with message "14400 ' is no a valid integer value
Cçomo puedo solucionarlo ?????
GRACIAS
|