Extraer el primer caracter de un string

[roman]

Empezado por Al González

[...] me será más fácil recordar qué significa este bloque de código:

{ Bloque de Al }

qué este otro:

{ Bloque de roman }

Pero es que ¡en el segundo bloque no hay nada que recordar! Desde las primeras lecciones de pascal se aprende que las cadenas de caracteres pueden tratarse como arreglos y que no podemos referirnos a un índice inexistente de un arreglo.

Por otra parte una cadena de caracteres consta, en general, de varios caracteres de manera que CaracCade no da una referencia explícita a qué carcater se está extrayendo. En todo caso PrimerCaracter me parecería más adecuado.

// Saludos

[[Al González]]

¡Hola de nuevo!

Empezado por roman

..CaracCade no da una referencia explícita a qué carcater se está extrayendo. En todo caso PrimerCaracter me parecería más adecuado...

La razón de esto es que CaracCade sirve para obtener cualquier carácter de la cadena dada. Tiene un parámetro opcional llamado Indice, con un valor predeterminado de 1. Es decir, puede usarse como CaracCade (S) —equivalente a CaracCade (S, 1)—, CaracCade (S, 2), CaracCade (S, 10), etc. Antes de que Object Pascal tuviera la característica de parámetros opcionales, Interfaz GH contaba con la función CaracCade (Carácter de Cadena) y otra llamada PrimeCaraCade (Primer Carácter de Cadena). Gracias a esa característica del compilador se pudieron unir las dos funciones en una sola.

Empezado por roman

Pero es que ¡en el segundo bloque no hay nada que recordar! Desde las primeras lecciones de pascal se aprende que las cadenas de caracteres pueden tratarse como arreglos y que no podemos referirnos a un índice inexistente de un arreglo.

¿Ves cómo si hay algo que recordar? . Aunque sea fácil respondernos a nosotros mismos la pregunta "¿Por qué se evalúa si S es diferente de cadena vacía?" (e importante y básico conocer la razón), no dejamos de hacérnosla mentalmente al ver ese bloque If. 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).

Seguimos en contacto.

Al González .

[roman]

Empezado por Al González

¿Ves cómo si hay algo que recordar?

Lo mismo que cuando recuerdo las tablas de multiplicar y no por ello uso una función ProduNume(A, B: Integer).

// Saludos

[[Al González]]

¡Hola a todos!

Empezado por roman

Lo mismo que cuando recuerdo las tablas de multiplicar y no por ello uso una función ProduNume(A, B: Integer)

El ejemplo no es comparable con lo planteado anteriormente, por dos razones:

La primera, no se simplificaría nada ya que la expresión A * B es más corta, sencilla, legible y fácil de analizar que la expresión ProduName (A, B).

La segunda es que lo recordado no es cómo se hace una operación, sino qué hace una expresión o grupo de expresiones, por lo que la preguna no es ¿cómo se múltiplican dos números?, sino ¿qué hace la expresión ProduNume (A, B)?. Es más fácil respondernos qué hace la expresión A * B o qué hace la expresión Case CaracCade (S) Of, que las alternativas mencionadas. Cabe señalar, que no me refiero al qué hace internamente, sino qué significado operativo tiene en el contexto de código actual.

Como habrás notado, CaracCade encapsula la validación If y la referencia al primer carácter de la cadena en una sóla expresión, y ese es el quid de este caso: utilizar una simple y única expresión en lugar de dos o más.

Un abrazo.

Al González .

[roman]

Mencioné lo de las tablas de multiplicar porque son cosas que aunque en su momento nos hayan costado mucho trabajo, ahora son totalmente naturales y no nos detenemos a pensar gran cosa en ellas, simplemente efectuamos mentalmente la operación de forma automática. Así mismo sucede aquí, como en muchas (si no es que todas) áreas de la actividad humana. Hay cosas que pasan a ser tan naturales que difícilmente tenemos que detenernos a pensar en ellas, y una de éstas es saber que no se puede acceder a un elemento inexistente de un arreglo. Entiendo que para alguien que recién se esté iniciando en el mundo de la programación, puntos como éste no sean triviales, pero llega un momento en que así son, tan naturales como las tablas de multiplicar y requiere más esfuerzo mental extraer de la memoria el objetivo y uso de una función de entre los cientos de funciones que hemos usado aquí o allá en ocasiones anteriores. En el caso que planteas, además de tener que recordar el objetivo de una función, debe uno recordar el uso de sus parámetros. Insisto, un nombre como CaracCade no evoca la extracción del primer caracter de una cadena por lo que debe uno recordar que tiene un parámetro por defecto y que éste se refiere al primer caracater y no, por ejemplo, al último. Cierto, al igual que con muchas funciones incluidas con Delphi, podemos oprimir F1 o consultar la documentación para recordar el funcionamiento exacto, pero, vuelvo al punto inicial, todo esto fue ya más complicado que simplemente leer el código, no encapsulado en una función, que inmediatamente comprenderemos sin necesidad de preguntarnos nada.

No dudo que en tu biblioteca haya muchísimas funciones muy útiles, pero creo que es un exceso querer reusar absolutamente todo el código posible, incluido el más elemental.

// Saludos

[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.

[jachguate]

Lo digo de memoria, pero la excepción que debiera producirse es un EAccesViolation, pues se trata de acceder a una posición de memoria inválida.

hasta luego.

[roman]

En efecto es un EAccessViolation. No sé por qué, pero capturar estas excepciones siempre me pone nervioso

// Saludos

[delphi.com.ar]

Empezado por roman

En efecto es un EAccessViolation. No sé por qué, pero capturar estas excepciones siempre me pone nervioso

Efectivamente yo prefiero prevenirlas

Empezado por Delphi.com.ar

{Por Caracter (Habría que evaluar que la cadena no este vacía)}

PD: ¿Se dieron cuenta las vueltas que estamos dando para algo tan simple?

[kinobi]

Empezado por roman

En efecto es un EAccessViolation. No sé por qué, pero capturar estas excepciones siempre me pone nervioso

imagino que será por la asociación que hacemos "excepción = error", no siendo realmente así, ya que una excepción es una situación anormal (o "excepcional") que requiere, si es preciso, un tratamiento especial, como es el caso que se discute en este hilo.

Saludos.

[roman]

También podríamos crear una función de carcater general:

Código Delphi [-]
function CasoCaracDe(S: String; Caracs: array of Char; Resuls: array of Integer; Defe: Integer): Integer;
var
  I: Integer;

begin
  Result := Defe;

  for I := Low(Caracs) to High(Caracs) do
    if CaracCade(S) = Caracs[i] then
    begin
      Result := Resul[i];
      break;
    end;
end;

con lo que el código se reduciría a una sóla línea:

Código Delphi [-]
Resultado := CasoCaracDe(S, ['A', 'B', 'C'], [10, 9, 8], 0);

// Saludos

[jachguate]

Parece que hay una nueva función para agregar a alguna biblioteca...

[kinobi]

Hola,

Empezado por roman

También podríamos crear una función de carcater general:

cierto, pero (y lo hago en defensa de la propuesta que utiliza la gestión de excepciones) el tener la precaución de atrapar la posible excepción es también un método genérico, con la ventaja de que viene implantado en el propio lenguaje sin necesidad de arrastrar funciones externas.

No estoy diciendo que el utilizar funciones externas, como la que has puesto, o a la que se refiere Al, sean una solución peor, sino que, para estos casos, el mecanismo de gestión de excepciones (para Delphi y otros lenguajes que lo implantan) ha demostrado su validez, sencillez y eficacia frente a métodos "tradicionalmente" defensivos (verificar antes que no se dan determinadas circunstancias).

Saludos.