Hola,
Cita:
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.