Código Delphi [-]procedure TForm1.ComboBox1Click(Sender: TObject); begin ShowMessage(IntToStr(Ord(ComboBox1.Text[1])-64)); end;
procedure TForm1.ComboBox1Click(Sender: TObject); begin ShowMessage(IntToStr(Ord(ComboBox1.Text[1])-64)); end;