wildchild respondió:
Puedes utilizar un código como este en un evento keypress del Edit1: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Form1.RadioGroup1.ItemIndex of 0:if (key<>'0') and (key<>'1') then key := #0; //para base binaria 1:If...