Extraer el primer caracter de un string

[kinobi]

Hola,

Empezado por Al González

En cuestión de análisis de código, es más fácil lidiar con un un sólo estatuto de control (Case) que con dos juntos (If + Case).

Tal vez esté equivocado, y no puedo probarlo ahora, pero si intentas indizar una cadena vacía, se producirá una excepción que podrás capturar en un bloque try...except y actuar en consecuencia. Vamos, que podría quedar algo así:

Código Delphi [-]
  ... 
  try
    case S[1] of
      'A': Result := 10;
      'B': Result := 9;
      'C': Result := 8;
    end;
    on excepción_cadena_vacía do begin
      manejador_excepción_cadena_vacía
    end;
  end;
  ...

Saludos.